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We  have  undertaken  the  design  of  a new  language  because  existing 
languages  for  numerical  computation  have  a serious  deficiency:  they  reflect 
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memory  which  cannot  be  modeled  as  a local  effect.  Fortran,  still  the  most 
popular  language  for  large  scale  numerical  work,  is  particularly  blatant 
in  this  respect  since  it  was  conceived  as  a high  level  notation  for  program: 
to  be  run  on  a machine  of  classical  design  (the  IBM  704). 
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V A I --  A Value  Oriented  Algorithmic  Language 

1.  INTRODUCTION 

The  programming  language  VAL  {Value-Oriented  Algorithmic  Language)  is  designed  for 
expiessuig  algorithms  for  execution  on  computers  capable  of  highly  concurrent  operation.  More 
specifically,  the  application  area  to  be  supported  is  numerical  computation  which  strains  the  limits 
of  high  performance  machines,  and  the  primary  targets  for  tianslation  of  VAL  programs  are  data 
dnven  machines  of  the  foim  undci  development  by  the  Computation  Structures  Croup  of  the  MIT 
Laboratory  lor  Computet  Science  lor  high  performance  numerical  computation. 

Nevei theless.  it  has  been  our  intention  that  the  language  not  have  idiosyncrasies  reflecting  the 
paitictilar  natuie  of  the  application  area  or  target  machine  It  should  be  reasonable  for  VAL  to 
evolve  into  a general  purpose  language  appropriate  for  writing  programs  to  run  on  future  general 
purpose  data  flow  computers 


In  the  design  of  VAI  we  have  given  careful  consideration  to  the  recently  developed  body  of 
knowledge  about  program  structures  and  language  characteristics  which  support  program 
veiilicaticin.  We  have  found  a natural  consistency  between  language  design  for  support  of 
concurrency  and  language  design  for  correctness  and  vei  ifiability.  This  has  made  it  possible,  in  the 
design  of  VAL.  to  adhcie  to  program  structures  and  language  characteristics  that  have  been  found 
desnable  for  case  of  understanding  and  verification,  and  ease  of  building  a program  by  combining 
separately  specified  modules. 

We  have  undertaken  the  design  of  a new  language  because  existing  languages  for  numerical 
computation  have  a serious  deficiency,  they  leflect  the  storage  structure  of  the  von  Neumann 
concept  of  rompntei  organization  in  that  each  language  has  some  method  of  effecting  a change  in 
state  of  the  memory  which  cannot  be  modeled  as  a local  effect  Fortran,  still  the  most  popular 
language  iru  laigo  scale  numerical  wotk,  is  particularly  blatant  in  this  respect  since  it  was  conceived 
as  a high  level  notation  fot  programs  to  he  run  on  a machine  of  classical  design  (the  IBM  704). 


Key  words:  programming  languages,  applicative  programming, 
modularity 
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The  d it t icnlt y with  lsngnap.es  that  allow  specification  of  global  state  changes  is  that  programs 
may  be  written  which  aie  very  difficult  or  impossible  to  analyze  for  parts  that  may  be  executed 
concurrently.  It  is  impossible  in  general  to  trace  the  flow  of  data  with  less  than  a complete  analysis 
of  the  entire  program.  Only  with  such  analysis  is  it  possible  to  find  and  eliminate  inessential 
constraints  on  the  sequencing  of  program  parts 

In  contrast,  the  language  VAI.  is  entirely  free  of  side  effects:  each  module  or  well  formed 
pottion  of  a VAI  piogiam  roriesponds  to  a mathematical  function  and  the  entire  effect  of  putting 
two  parts  together  is  to  compose  the  corresponding  functions.  Such  a language  is  functional  or 
applicative  Although  designs  for  applicative  languages  have  been  discussed  many  times  in  the 
literatuie.  theie  have  been  few  attempts  to  construct  a complete  and  practical  definition.  This  is 
due  to  the  difficulty  of  inrorpoiating  file  updates  and  input/output  operations  within  the 
applicative  framework,  and  the  question  of  efficiency  of  implementation  The  efficiency  issue  is 
countered  in  VAL  by  our  goal  of  highly  parallel  execution,  which  is  supported  by  applicative 
languages,  and  our  aim  to  develop  computer  architectures  specifically  for  efficient  execution  of 
progiams  expressed  in  functional  languages 

The  file  update  and  input/output  issues  will  be  addressed  in  future  versions  of  VAL  in  which 
sti earns  c>f  values  will  be  mtiocluccd  as  a principal  means  for  communicating  between  program 
modules  Modules  that  produce  streams  as  output  or  accept  streams  as  input  can  be  used  for 
input/output  processes.  Further,  the  implementation  of  transactions  on  a data  base  may  be  viewed 
as  the  processing  of  a stream  of  commands  by  a data  base  “secietary"  or  "guardian"  module  that 
holds  the  data  base  as  internal  data.  If  it  is  desired  to  realize  more  concurrency  in  processing 
transactions.  the  data  base  may  be  divided  into  parts,  each  with  its  own  secretary  module 

In  developing  the  sttiirtine  of  VAL,  it  was  natural  for  us  to  start  from  a language  design 
which  is  of  high  quality,  is  well  documented,  and  is  close  in  spirit  to  our  goals.  Such  a language  is 
C 1.1/  [I,  f’].  developed  at  MIT  by  the  Progiamming  Methodology  Croup  under  Professor  Barbara 
Liskuv  In  paiticulai,  CLU  is  designed  for  complete  compile  time  type  checking,  and  it  has  a set  of 
well  thought  out  contiol  stmcturcs  and  basic  data  types  consonant  with  modern  principles  of 
structuied  programming. 
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While  we  have  adopted  many  of  the  fundamental  ideas  of  CLU,  VAL  differs  radically  from 
CLU  m that  the  latter,  like  many  new  languages,  is  object  oriented  instead  of  value  oriented.  In 
keeping  with  this  difference,  the  syntax  and  geneial  structure  of  VAL  are  designed  to  reflect  the 
functional  character  of  the  language  and  out  desire  to  support  highly  concurrent  program 
execution 
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A piogram  m VAL  is  a collect  ion  of  sepatalely  translated  parts  called  modules.  Each  module 
contains  the  definition  of  one  external  function.  This  function  is  accessible  to  all  other  modules  of 
the  VAL  program  by  use  of  us  name.  A module  may  also  contain  the  definitions  of  internal 
functions  These  internal  functions  are  used  only  within  the  module,  and  are  not  accessible  to  other 
modules. 

The  VAI  language  is  applicative,  that  is,  value-oriented.  In  contrast  to  many  other 
languages,  there  ate  no  "objects"  thought  of  as  residing  in  memory  and  being  updated  as  the 
computation  piogiesses  Even  a 1 1 ays  and  iccords  are  treated  in  VAL  as  mathematical  values. 

A function  computes  one  or  mote  data  values  as  a function  of  one  or  nore  argument  values. 
Except  tot  invocations  of  other  functions,  a function  invocation  has  access  only  to  its  arguments; 
then-  are  no  side  effects  Further,  a function  retains  no  state  information  from  one  invocation  to 
another;  each  function  invocation  is  st net ly  independent  Hence  values  returned  by  a function 
depend  only  on  the  argument  values  presented  to  it  - a VAL  function  implements  a true  function 
in  the  mathematical  seme 

The  data  types  o(  VAL  include  the  basic  scalar  types:  boolean,  integer,  real,  and  character. 
Data  sti uctui e values  ate  cither  rccoid  values  or  array  values  Records  have  a fixed  format  in 
which  each  field  has  a specified  type  An  array  type  has  an  integer  index  set  and  its  components 
ate  of  atlntiary  hut  uniform  type.  Data  structures  of  arbitrary  depth  may  be  pecified  using  nested 
at i.iy  and  retold  types  Union  types  may  be  formed  in  which  tags  allow  discrimination  among  a 
specified  set  of  constituent  types 

Each  data  type  has  its  associated  set  of  operations  and  predicates.  Array  and  record  types  are 
tteatrd  as  mathematical  mts  of  values  - just  as  the  boolean,  integer,  real,  and  character  types  The 
ojtnatious  fot  at  lays  and  tecoids  are  chosen  to  support  identification  of  concurrency  for  execution 
on  a highly  paiallel  ptocessoi. 


Exceptions  are  handled  in  VAL  through  sjjcc la l enor  elements  in  each  data  type.  The 
element  undof  signals  that  one  01  mote  opeiand  values  are  not  in  the  specified  domain  of  an 
opei .1  non  The  element  misG_elt  signals  that  an  anay  component  is  absent.  Other  error  elements 
are  piovidcd  in  the  numeric  types  to  indicate  arithmetic  exceptions. 

The  design  of  VAL  permits  type  checking  to  be  performed  by  the  translator.  The  type  of 
eacli  argument  c>r  result  value  of  a function  is  specified  in  the  function  definition’s  header.  Each 
value  name  used  in  the  body  of  a function  must  have  its  data  type  specified  The  operations  of 
VAL  aie  designed  so  that  the  types  of  the  results  can  he  determined  if  the  types  of  the  operands  are 
known  Since  the  types  of  all  atomic  expiessions  ate  manifest,  the  types  of  all  expressions  can  be 
detri  mined 

Since  VAL  is  a sided  fret  fire  language,  subexpressions  may  be  evaluated  in  any  order 
without  c t feet  on  computed  results  Thus  the  control  structures  of  VAL  use  a syntactic  form  - an 
expiession  --  evaluation  of  which  yields  a tuple  of  values  Language  constructs  are  provided  for 
conditional  expressions  (if/thcn/else),  and  for  iteiation  expressions  (for/iter),  the  latter  being  a 
scheme  tot  lepresenting  iterations  as  tail  recursions.  In  addition,  expression  structures  are  provided 
for  distt  iluited  computation  of  the  components  of  a new  an  ay  or  of  values  to  be  combined  by  an 
opeiatoi  A forall/construct  expiession  is  used  to  compute  the  component  values  of  a new  array 
simultaneously  A forall/eval  expression  combines  simultaneously  computed  values  by  an 
associative  operation  such  as  addition,  multiplication,  or  maximum. 

2.1  Notation 

In  the  RNF  pi tsriit.it ion  of  the  syntax,  large  curly  braces  { } indicate  zero  or  more 

tepetitions  of  the  material  within  Large  hi  ackers  [ . 1 indicate  that  the  material  within  may 

appeal  too  times  m once 


3.  PROGRAM  FORMAT 


Pic  ams  arr  written  using  tlic  ASCII  character  set.  No  "control"  characters  other  than  tab 
and  newline  aic  used,  except  in  character  constants.  The  program  elements  are  operation  and 
punctuation  symbols,  real  and  integer  numbers,  character  strings,  reserved  words,  and  names. 
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The  upeiation  and  punctuation  symbols  are  the  following: 


i 

- 

* 

/ 

1 

& 

II 

< 

N 

/ 

\ - 

>= 

= 

: = 

. 

; 

, 

( 

) 

[ 

J 

• 

- 

An  integei  numbei  is  a sequence  of  digits  without  a decimal  point.  A real  number  is  a 
sequence  of  digits  with  cither  a decimal  point  or  an  exponent  field.  An  exp  nent  field  is  the  letter 
"E"  or  "e",  an  optional  sign,  and  one  or  mote  digits. 

A charactei  constant  is  a single  chaiacter  enclosed  in  single  quotes.  A character  string 
constant  is  a string  of  7pio  or  moie  chaiactPis  enclosed  in  double  quotes  Within  each  of  these, 
tabulate,  space,  newline,  peicent,  and  all  contiol  characters  represent  themselves.  A double  quote 
may  be  placed  in  a string  by  using  two  double  quote  characters. 

A lescivrd  wold  is  a word  that  always  has  a special  meaning.  Reserved  words  may  never  be 
used  in  any  context  foi  other  than  then  special  meaning.  Reserved  words  in  program  examples 
and  in  the  syntax  are  printed  in  boldface  in  this  report 


resci  ved  words  are 

abs 

do 

if 

over 

and 

else 

in 

plus 

arith_error 

elscif 

integer 

pos_over 

array 

endall 

is 

pos_under 

array_addh 

endfor 

iter 

real 

array_addl 

endfun 

let 

record 

I 
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array.. adjust 

endif 

array_empty 

enditer 

array_fill 

endlet 

array„join 

endtag 

arrayjimh 

error 

arrayjiml 

eval 

array  _remh 

exp 

array_reml 

external 

array_setl 

false 

array_size 

for 

boolean 

for  all 

character 

function 

construct 

make 

replace 

max 

returns 

min 

tag 

miss_elt 

tagease 

mod 

then 

neg_over 

times 

neg_under 

true 

nil 

type 

null 

undef 

oneof 

under 

or 

unknown 

otherwise 

zero_divide 

A name  is  a sequence  ol  letters,  digits,  and  underscores,  of  which  the  first  character  must  be  a 
letter  A name  may  not  be  the  same  as  a reserved  word.  A name  may  be  used  as  a value  name,  a 
function  name,  a defined  typp  name,  a record  field  name,  or  a oneof  tag  name.  These  uses  all 
have  then  own  mechanisms  for  interrelation.  and  hence  a name  may  be  used  without  conflict  for 
several  of  these  purposes.  For  example,  a tecord  field  name  occurs  only  in  a record  type 
specification  01  tecoid  opeiation,  and  hence  will  never  be  confused  with  a value  name 

Uppn  and  lowrt  case  Irtteis  in  names  and  reserved  words  are  not  distinguished,  but  all  uses 
of  a name  01  irseivrd  void  must  have  consistent  capitalization  Names  may  be  of  any  reasonable 
length 

1 lie  separating  characters  space,  tabulate,  and  newline  aie  equivalent  (except  in  delimiting 
comments',  and  may  appear  anywhere  except  within  a program  element  Hence  they  may  not 
appeal  within  a number  oi  between  the  characters  of  a two  character  operation  symbol  such  as  >=. 
A separating  rhainctei  is  inquired  only  between  adjacent  constants,  names,  or  reserved  words  For 
example,  separating  characters  aie  irquned  to  distinguish  the  program  construct  "if  p then  3 else  4 
endif"  horn  tlm  name  "i(pthen3else4endif"  Scpaiating  characters  not  required  next  to  operation  or 
punctuation  symbols 
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A comment  lupins  with  a jici cent  sign  and  continues  to  the  end  of  the  line.  A comment  is 
equivalent  to  a space.  and  hence  may  he  placed  anywhere  except  within  an  program  element. 
Examples  of  names  and  constants 

ABC3..Q 

3-1 

3I41593E1 
2’.  71  £282 
5772 157E  7 


"abc""de(" 


4.  VALUES  AND  TYPES 


The  inputs  and  outputs  ot  VAL  expressions  and  functions  are  values.  The  entire  collection  of 
values  that  may  he  presented  to  or  produced  by  VAL  programs  is  the  value  domain  of  VAL.  The 
value  domain  is  subdivided  into  distinct  disjoint  subdomains  that  are  the  data  types  of  VAL. 
There  aie  basic  types  which  include  the  familiar  scalar  values  of  computation;  structured  types  in 
the  fonn  of  anays  and  lecoids  as  defined  by  the  language  user  in  terms  of  simpler  data  types,  and 
disci  miniated  union  types 

4.1  Type  Specifications 

A type  specification  in  VAL  is  a syntactic  construct  that  specifies  a data  type. 

Syntax 

type  spec  ::  basic  type-spec 
| coinpound-type-spec 
| type-name 

basic  tyjie  spec  null  j boolean  J integer  i real  j character 

compound  type-spec  array  [type  spec] 

j record  [ field  spec  { ; field-spec  } ] 

1 oneof  [ tag  spec  { . tag-spec  | ] 
field-spec  ::  =■  field  name  { . field-name  } : type-spec 
tag-spec  ::  tag-name  ] , tag-name  } [ : type-spec  ] 
field  name  ::  = name 
tag  name  name 
type  name  : : - name 

Ini  a basic  type,  the  specification  is  simply  the  name  of  the  type  For  a compound  type,  the 
speed K.ition  consists  of  a type  constructpi  giving  the  name  of  the  compound  type  followed  by  the 
npct-ss.aiy  additional  infoimation  within  bi ackers 


i 
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I Thr  ,ii  i.iy  type  constmctoi  gives  the  type  of  t he  elements  of  the  array 

Examples. 

array  l integer  ] 
array  [ array  [ real  ]] 

The  lecoid  type  constrictor  gives  the  Meld  names  and  the  type  associated  with  each  field 
The  field  names  used  within  any  record  specification  must  be  distinct.  Where  several  field  names 
are  listed  with  one  type,  the  helds  are  all  of  that  type 
Examples 

record  [ I,  J : integer  ; TfMP  real  ] 

record  I I : record  [ x : array  ( boolean  ] ; v : character  ] ; TEMP  : real  ] 

A name  may  be  used  as  a field  name  and  as  any  other  name  (but  not  a reserved  word) 
without  conflict,  since  it  is  interpreted  as  a field  name  only  in  the  record  constructor  and  in  record 
operations  The  same  field  name  may  be  used  in  seveial  record  types  without  conflict. 

The  oneof  (union)  type  constructor  gives  the  tags  and  the  type  associated  with  each  tag.  The 
tag  names  must  he  distinct  Wheie  seveial  tag  names  aie  listed  wnh  one  type,  the  tags  all  indicate 
that  type  If  the  colon  and  following  type  specification  are  omitted,  the  null  type  is  assumed. 
Examples 

oneof  [ IIP,  DOWN,  LEFT,  RIGHT  ] 

oneof  [ f ix  : integer  ; flo  : real  ] 

oneof  [ this  : array  [ integer  ] ; THAT,  the_OTHER  : record  [ C : real  ; D : boolean  )] 

As  in  the  race  oi  field  names,  a tag  name  may  coincide  with  any  other  name  without  conflict,  and 
the  same  tag  name  may  he  used  in  several  muon  types  without  conflict. 

Any  type  name  used  as  a typo  specification  must  be  defined  by  a type  definition  (see  Section 

4.6) 
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4.2  Value  Domains 

Each  clan  t ypr  is  a domain  of  values  as  described  below  As  will  be  seen,  each  data  type 
includes  propci  elements,  and  enor  elements  which  occur  as  the  result  of  an  expression  when 
computation  of  a proper  value  of  the  type  is  impossible.  Each  data  type  is  further  characterized  by 
the  set  ot  operations  that  may  be  used  to  create  and  transform  values  of  the  type  The  operations 
for  each  data  type  of  VAL  aie  defined  in  Section  5.  as  are  conversion  operations  that  convert 
values  of  one  typp  into  values  of  another. 

4.3  Error  Values 

1 he  error  elements  ate  included  to  support  the  unusual  treatment  of  exceptions  adopted  in 
VAL  as  discussed  in  Sections  5 and  7.  The  full  name  of  an  error  value  consists  of  an  error  name 
followed  by  the  type  specification  enclosed  in  biackets,  for  example  zero_divide[real]  This  is 
because  every  value,  including  all  enoi  values,  must  have  a unique  type,  so,  for  example, 
zero_divide[rean  is  a different  value  from  zero_divide[integer]. 

Two  pi i oi  values  air  members  of  eveiy  data  type:  the  element  undef[type]  results  when 
opemnd  values  ate  not  m the  domain  of  an  operator,  for  example,  if  the  index  of  an  array  access 
opeiatinn  is  outside  t lie  range  of  the  array;  the  element  miss_el{[type]  results  if  the  index  of  an 
array  access  opciation  is  within  the  array  range,  but  no  data  value  exists  at  that  index. 

4.4  Bar.ic  Types 

T nf  X ii  II  T y/v 

propei  elements  nil 

enoi  elements  undeflnull],  mis$_elt[null] 


1 he  null  type  occurs  in  a distinguished  union  (oneof)  type  where  in  one  or  more  alternatives 
no  data  value  is  required 


• H 


T in  fhw'i  in  Tyi; 

|iui|iri  elements  true,  false 

ft 1 01  elements  undcf, boolean!.  miss_elt[boolean] 


T,if  Inti^n  T'ii'f 

piopor  elements  1 lie  integers  between  some  limits  which  are 

implementation  dependent 

enoi  elements  undefiintegeri  miss_elt[integer], 
po5_over[mteger].  neg_overiinteger]. 
unknown!  integer],  zero_divideiinteger] 


Tin  e|i  1 1 i it s pos_overiintcger]  .md  neg_over!integcr]  indicate  that  the  integer  value  is 
too  lai;<  (positive  01  negative)  to  hr  irpiesented  in  the  implementation  The  element 
unknownlintcgcr)  indicates  the  lesult  ol  a computation  that  has  exceeded  the  capacity  of  the 
implrmi  ntation.  hut  whose  tine  value  is  not  known  to  be  out  of  range  The  element 
zero_divide[intcger]  indicates  the  result  of  a division  or  modulus  operation  with  zero  divisor 


T hf  R(tU  T v 

piopei  elements  Floating  point  tepiesentations  of  real  numbers 
including  leio,  with  some  exponent  range  which  is 
implementation  dependent 
oi  i ot  elemmts  undcfirca!!.  mi os_elt [real ]. 

por._ovcr[rcal),  ncg_over[rcal). 
pos_undcr[rcall  ncg_undcr[real], 
unknownlreal],  zero_dividc!real] 


The  elements  po5_over[rcal]  and  ncg_ovcr[real]  indicate  that  the  real  value  is  larger 
(positive  oi  nr  uive)  than  o irpresrntable  m the  floating  point  method  of  the  implementation. 
The  elements  po5_under[reaU  and  neg^underlreal]  trpresent  non  zero  values  too  small  in 
magnitude  to  hr  irpirsentable  in  the  Hinting  point  method  of  the  implementation  The  element 
unknown, 'real]  indicates  the  tesiilt  of  a computation  that  has  exceeded  the  exponent  range  of  the 
implementation,  but  whose  tine  value  is  not  known  to  be  out  of  range.  The  element 


— :* ' ' 


ii 

J 
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zero_divide[rcall  indicates  the  icsult  of  an  attempted  division  l»y  reio 

T ht  ChauutO  T'jt’f 

piopei  elements  The  12$  chaiacteis  of  t he  ASCII  character  set. 
nroi  elements  undef[character],  miss_elt!character] 

4.5  Compound  Types 

,-i'i.tv  T\pes 

Foi  each  data  type  defined  hy  some  VAL  type  specification  T,  an  array  type  may  be  defined 
by  tire  type  specification  array[T] 

pi opn  elements  A pioper  auay  value  in  array  [T]  consists  of  two 
components 

tl)  A rang,-  (LO,  HI)  whcie  LO  and  HI  are  integers  and 
LO  < HI  + I These  aie  inclusive  bounds  on  the  defined 
elements  If  LO  = HI  + I the  array  has  no  elements 
(21  A sequence  of  HI  - LO  ■*  1 elements  of  type  T 
eiior  elements  Fveiy  array  type  arraytT]  includes  the  elements 
undefiarrayiT]]  and  miss_eltiarray[T]] 


RfiOi  if  Types 

ll  tj,  . t,,  ate  V'AL  type  specifications  and  tip.  . nK  are  distinct  names,  then 
record  [ nj  : t j ; ...  ; : 1^  ) specifies  a iccoul  type 

piopei  elements  Lach  proper  value  ol  the  record  type  is  a set  of  k pairs 
{<ii  j . Vj).  , (iip  v^)|  where  each  is  an  element  of  tj. 
erroi  elements  undef[T],  miss_elt[T),  wheie  T is  the  record  type 
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Union  Typos 

Each  element  of  a union  type  is  an  element  of  one  of  several  constituent  types,  accompanied  by 

a tag  which  indicates  the  constituent  type  from  which  the  element  was  taken.  If  tj t^  are  type 

specifications,  and  n ■ . . . nK  ate  distinct  names,  then  oneof  [ nj  : tj  ■, . . . ; nk  : t^  ] specifies  a 

union  type 

proper  elements:  Each  proper  element  of  the  union  type  is  a pair  (nj,  Vj) 
where  1 < i < k and  v,  is  an  element  of  t(. 
enor  elements  undef[T],  miss_elt[T],  where  T is  the  union  type 

4.6  Type  Definitions 

Syntax. 

type-def  = type  type  name  = type  spec 
type  name  : : = name 


A function  definition  may  contain  a number  of  type  definitions  which  specify 
prrv,i ammer-named  types  used  in  the  function  Each  type  definition  specifies  that  a type  name 
denotes  the  type  tepiesented  by  the  given  type  specification  The  type  specification  part  of  a type 
definition  may  contain  type  names  defined  in  the  same  or  other  definitions.  Recursion  and  mutual 
icon  sion  ate  pet  muted  in  type  definitions  Such  type  definitions  may  be  used  to  construct  data 
types  composed  of  ai ray  oi  leroid  sttuctmes  of  unlimited  depth. 

Example 

type  STACK  oneof  [ empty  . null  ; element  : record  [ value  ; real  ; rest  : STACK  ]] ; 

The  name  ot  a defined  type  may  be  used  anywhere  that  a type  specification  is  permitted,  eg. 
as  the  type  paiamrtei  tor  constants  such  as  miss_elt[type-spec]. 

A name  may  he  used  as  a type  name  and  as  any  other  kind  of  name  without  conflict,  since  it 
is  intei  preied  as  a type  name  only  in  well  defined  contexts 


I 
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4.7  Equivalence  of  Type  Specifications 

Typo  checking  is  pet  foi  rued  by  the  VAL  translator  by  testing  that  the  type  of  each  expression 
or  subexpression  matches  the  type  required  by  the  context  in  which  it  appears.  The  type  of  an 
expiession  oi  subexpression  is  determined  by  its  composition  from  operators  and  elementary  terms 
as  described  m Sections  b ami  6.  This  must  match  the  type  required  by  its  context:  an  argument  to 
a function  must  match  the  argument  type  indicated  in  the  function’s  definition,  and  an  expression 
on  the  right  hand  side  of  a definition  (see  Section  7.2)  must  match  the  declared  type  of  the  name  on 
the  left  hand  side 

The  necessity  lest  is  to  determine  if  two  type  specifications  are  equivalent,  that  is.  if  they 
denote  the  same  type  Two  basic  type  specifications  ate  equivalent  if  they  are  the  same  Two 
array  specifications  are  equivalent  if  their  element  types  are  equivalent.  Two  record  or  oneof 
type  specifications  arc  equivalent  if  their  coriespondmgly  named  component  types  or  constituent 
types  aie  equivalent:  the  order  in  which  they  are  listed  is  not  significant  A defined  type  name  is 
equivalent  to  the  type  appearing  on  the  right  hand  side  of  its  definition 

A compound  type  specification  can  he  visualized  as  a tree  whose  nodes  are  labeled  array, 
record,  rn  oneof.  whose  arcs  fiom  record  or  oneof  nodes  are  labeled  with  field  or  tag  names, 
and  whose  leaves  ate  basic  types  Equivalence  can  be  formulated  in  terms  of  this  characterization: 
Two  type  spccitications  ate  equivalent  if  their  ttees  are  identical,  disregarding  the  order  of  arcs.  If 
a type  specification  uses  lecursion,  this  tiee  is  infinite;  two  such  specifications  are  equivalent  if  these 
minute  tires  aie  identical 

Examples  - assume  the  following  type  definitions 
type  fJUM  = real  ; 

type  STACK  = oneof  [ empty  : null  , element  : ITEM  ] ; 
type  ITEM  = record  [ value  : real  ; rest  : STACK  ] ; 


— — 
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I hen  i hr  tolliiwing  pans  of  type  specifications  are  equivalent: 
real  (A  ripfinpH  t 


record  [ a real  ; b : integer  ] 
record  [ h : integer  ; a : real  ] 


(A  defined  type  is  exactly  equivalent 
to  the  type  that  it  is  defined  to  be.) 

(order  of  fields  is  not  significant) 


oneof  [ empty  : null  ; element  : record  [ value  : real  ; rest  : STACK  ]]  ; 

STACK"  (The  (jnfinite)  trees  implied  by  these 

type  specifications  are  equivalent.) 


i 


5.  OPERATIONS 
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In  this  section  wp  specify  the  sets  of  operations  applicable  to  each  data  type  of  VAL.  In  the 
examples  of  notation,  P and  Q,  stand  for  boolean  values,  J and  K for  integers,  X and  Y for  reals,  C 
and  L>  lot  characters,  A and  B for  arrays,  R for  records,  U for  union  (oneof)  values,  and  V for 
values  of  arbitral y type 

5.1  Error  tests 

A number  of  tests  arc  provided  for  error  elements.  The  following  three  are  defined  for  all 

types 

operation  notation  functionality 

test  foi  undef  is  undef(V)  any  ->  bool 

test  for  miss_elt  is  miss_eltsV)  any  -*  bool 

test  for  all  pi  tors  is  error(V)  any  ->  bool 


The  test  is  error  is  satisfied  by  all  error  values  for  the  type  to  which  it  is  applied:  undef, 
miss_elt,  and  any  other  errors  such  as  zero_divide  that  exist  for  that  type.  Additional  error 
tests,  such  as  is  over,  are  defined  below  for  cet tain  types. 

All  errot  test  operations  always  return  true  or  false,  never  an  error  value.  They  must  be 
used  fm  testing  for  errors  in  prefeience  to  the  equality  operator  (eg.  "X  = undef[realD,  since  the 
lattri  returns  undef[boolean]  when  X is  an  erior  value 

5.2  Null  operations 

The  null  type  is  used  to  provide  a case  in  a union  type  for  which  the  value  is  irrelevant. 
There  aie  no  opnations  for  this  type  except  the  error  tests  is  undef,  is  miss_elt,  and  is  error. 
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5.3  Boolean  operations 


The  boolean  operations  ate  the  following: 


opei  anon 

notation 

functionality 

and 

P & Q. 

bool,  bool  -*  bool 

Ol 

P IQ. 

bool,  bool  -*  bool 

nor 

~ P 

bool  -♦  bool 

equal 

P = 0. 

bool,  bool  ->  bool 

not  equal 

o' 

u 

* 

bool,  bool  -*  bool 

test  toi  undef 

is  undef(P) 

bool  -*  bool 

test  toi  miss_elt 

is  miss_elt(P) 

bool  -*  bool 

test  foi  undef  oi  miss_elt 

is  error(P) 

bool  -»  bool 

If  an  error  value  is  an 

opciand  to  a boolean  operation  other  than  an  error  test,  the  result  is 

undcffboolean] 


5.4  Integer  operations 

The  intcgci  opciations  are  the  following: 


opet  at  ion 

notation 

functionality 

addition 

J ♦ K 

int.  int  -»  int 

subtraction 

J - l< 

int,  int  -»  int 

mull  iplirarion 

J * K 

int,  int  -»  int 

division 

J ' K 

int,  int  -«  int 

modulus 

modi;].  K) 

int,  int  -»  int 

exponentiation 

exp(J,  K) 

int,  int  -<  int 

negation 

-J 

int  -»  int 

. oo  _ 


1 In’  integf’i  npeiatois  have  the  following  special  behavior  with  respect  to  the  error  values 
po5_over,  neg_over,  and  unknown  These  rules  ate  of  course  symmetric  with  respect  to 
exchange  ot  the  arguments  to  +.  *,  max.  and  min  These  rules  do  not  apply  if  any  operand  is 
undef.  miss_elt,  or  zcro_divide 


la 

pos_over  + 

J = pos_over  if  J > 0 or  J 

unknown  otheiwise 

« pos_over, 

lb 

neg_over  t 

J neg_over  if  J < 0 or  J 

unknown  otherwise 

= neg_over, 

lc 

unknown  < 

) - unknown 

*"> -j 

- pos_over 

neg_over 

2b 

ncg_over 

= pos_over 

2c. 

- unknown 

= unknown 

-•  J - K J + ( - K ).  so.  for  example,  by  rules  2a  and  lb, 

J - pos_over  neg_over  if  J < 0 ot  J =■  neg_over, 
unknown  otheiwise 

•la  J * pos_over  neg_ovcr  it  J < -I  orj  = neg_over, 

pos_over  if  j > I oi  J = pos_over, 
f)  if  J - o, 
unknown  otherwise 

4h  j * ncg_ovcr  - (J  * pos_over) 

4c  J * unknown  = 0 it  ) = 0, 

unknown  otherwise 

5a  J < pos_over  *•  true  unless  J =-  pos_over  or  unknown, 

in  which  case  the  tesult  is  undef 

5h  neg_ovor  J true  unless  j - neg_over  or  unknown, 

in  which  case  the  result  is  undef 

The  preceding  two  tules  also  yield  true  if  the  connective  is  <=,  and  false  if  the  connective  is  > or 
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>=  They  sir  also  of  course  symmetric  with  tcspcct  to  exchange  of  the  arguments  and  reversal  of 
the  connective 

6a  abs(pos_over)  - abs(neg_over)  = po<;_over 
6b  abs(unknown)  unknown 

7a  rnaxfpos_ovcr.  ])  = pos_over 

7b  min;pos_over,  J)  = ) 

7c  max(neg_over.  J)  = J 

7d.  min(neg_over.  ))  = ncg_over 

7e  maxtunknown,  J)  = unknown 

7f.  mintunknown.  J)  = unknown 

Othei  tli. m the  above  cases,  if  any  operand  to  a integer  operation  other  than  an  error  test  is 
an  erroi  value,  the  lesult  is  undef  of  the  appropriate  type 

5.5  Real  operations 

The  real  opeiations  are  the  following: 

opeiatiun  notation  functionality 


addition 

X a Y 

real,  real  -♦  real 

snbti  action 

X - Y 

real,  real  real 

multiplication 

X * Y 

teal,  real  -»  real 

division 

X / Y 

real,  leal  -*  real 

expoiu  it; i it icui 

exp(X,  Y) 

real,  real  - real 

exponentiation  with  integer 

exp(X.J) 

real,  int  ->  real 

negation 

- X 

real  -♦  real 

magnitude 

abs(X) 

real  -•  real 

ma  xiiniim 

maxtX,  Y) 

real,  real  -•  real 

minimum 

min(X,  Y) 

real,  real  -♦  real 

minimum 
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equal 

X = Y 

real,  real  -*  bool 

not  equal 

X ~=  Y 

real,  real  -<  bool 

gie.itPi . lets 

X > Y,  X < Y 

real,  real  -*  bool 

g rearm  /equal,  less/rqual 

X Y,  X <=  Y 

real,  real  -*  bool 

test  1 01  pos_ovc:r 

is  pos_over(X) 

real  -*  bool 

test  loi  ncg_ovcr 

is  ncg_over(X) 

real  -*  bool 

test  f oi  pos_undcr 

is  pos_under(X) 

real  -*  bool 

test  !\n  ncg_undcr 

is  neg_under(X) 

real  ->  bool 

test  for  unknown 

is  unknowntX) 

real  -»  bool 

test  for  zero_divide 

is  zero_divide(X) 

real  -»  bool 

test  for  pos_over  oi  neg_over 

is  over(X) 

real  -»  bool 

test  foi  pos_undor  oi  neg_under 

is  under(X) 

real  -»  bool 

test  for  pos_ovor.  neg_over. 

is  arith_error(X) 

real  -♦  bool 

pos_undcr.  ncg_undcr,  unknown,  oi 

zero_divide 

test  tot  undef 

is  undef(X) 

real  -*  bool 

test  foi  miss_elt 

is  miss_elti,X) 

real  -*  bool 

test  toi  undef.  mics_elt.  pos_over, 

is  error(X) 

real  -*  bool 

neg_over,  pos_under.  neg_under,  unknown,  or  zero_divide 


The  mini  value  zero_divide[rcal]  may  result  from  the  division  operation.  The  error  values 
pos_ovor[real).  neg_over[real).  pos_undcr[real],  or  neg_under[real]  may  result  from  the 
aiithmrtic  opciations  if  the  result  exceeds  the  range  of  numbers  representable  on  the  target 
computri 

It  the  err ot  value  undefireai],  miss_elt[real],  or  zero_divide[real]  is  an  operand  to  any 

real  opeuticm  othei  than  an  enor  test,  the  result  is  undef  of  the  appropriate  type. 
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The  ical  operators  have  the  following  special  behavior  with  respect  to  the  error  values 
pos_over,  neg_.ovcr,  and  unknown  These  rules  are  of  course  symmetric  with  respect  to 
exchange  of  the  arguments  to  +,  *,  max,  and  min  These  rules  do  net  apply  if  any  operand  is 
undcf,  misspelt,  or  zero_divide 


la 

pos_over  + > 

s pos_over  if  X > 00  or  X = pos_over  or  pos_under, 

unknown  otherwise 

lb 

neg_over  a N 

s - neg_over  if  X < 0 0 or  X = neg_over  or  neg_under, 

unknown  otherwise 

Ic 

unknown  a X 

- unknown 

Id. 

pos_under  a 

X = X if  X < 0.0  and  is  a proper  value 

Ir 

ncg_undcr  + 

X = X if  X * 00  and  is  a proper  value 

If. 

poo_undcr  + 

poo_undcr  = pos_under 

Ig 

neg_undcr  + 

ncg_under  = neg_under 

Ih 

pos_undcr  + 

neg_under  = unknown 

It 

poo_undcr  + 

0.0  - pos_under 

>1 

nog_under  a 

00  - neg_under 

2a 

pos_over 

- neg_over 

2b 

- nog. over 

- pos_.over 

2c. 

pos_under 

= ncg_undcr 

2d 

ncg_undcr 

= pos_undcr 

2c. 

unknown 

= unknown 

3 X - Y X i ( - Y ),  so,  for  example,  by  rules  2a  and  lb, 

X pos_over  neg_over  if  X < 0.0  or  X - neg_over  or  neg_under, 
unknown  otherwise 

4a  X * poo_over  *■  neg_over  if  X < -10  or  X - neg_over, 

pos_ovcr  if  X > 1.0  or  X = pos_over, 

0 0 if  X = 0.0. 
unknown  otherwise 
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-lb  \ * neg_over  = - (X  * pos„over) 

4c  \ * pos_undor  = neg_under  if -10  < X < 00  or  X = neg_under, 

pos_under  if  0.0  < X < 1.0  or  X - pos_under, 

00  if  X = 00. 

unknown  otherwise 

•Id  X * neg_under  = - (X  * pos_under) 

4e  \ * unknown  = 00  it  X =00, 

unknown  othciwise 

5a  X pos_over  = true  unless  X pos_over  ot  unknown, 

in  which  case  the  result  is  undef 

5b  neg_over  X true  unless  X = neg_over  or  unknown, 

in  w h ic h case  the  result  is  undef 

The  1 1 1 ecedin.;  two  tules  also  yipld  true  if  the  connective  is  <=,  and  false  if  the  connective  is  > or 
>=-  They  ate  also  of  couise  symmetnc  with  tespect  to  exchange  of  the  arguments  and  reversal  of 
the  connective 


6a 

abcpoG^oven  = 

abs(ncg_over)  ■ 

6b 

abs<po3._undcr) 

abstneg_undcc) 

6c. 

nbo' unknown'  = 

unknown 

7a 

max  poo_over,  X) 

pos_over 

7b 

min! pos_over,  X) 

- X 

7c 

maxi neg_over.  X) 

- X 

7d 

mini neg_over.  X) 

= neg_over 

7e 

maxdinknown.  X) 

= unknown 

7f 

mim unknown.  X) 

- unknown 

pos_over 
= pos_under 


Odin  than  the  above  cases,  if  any  operand  to  a real  operation  other  than  an  error  test  is  an 
value  tlm  i # -ult  is  undef  of  the  appropriate  type. 


-t. 


e 1 1 ot 
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5.G  Character  operations 

*1 

The  clt.it  utet  oprt .ilium 

ate  i lie  following: 

opet.it  ion 

notation 

functionality 

eq  nil 

C = D 

char,  char  -*  bool 

not  »'<)inl 

C ~=  D 

char,  char  -*  bool 

test  101  undef 

is  undcf(C) 

char  -»  bool 

test  lot  mios_elt 

is  miss_elt(C) 

char  -*  bool 

test  lot  undef  or  miss  elt 
~ 

is  error(C) 

char  -*  bool 

If  an  mol  value  is  an 

undcficharactcr] 

operand  to  a charactei  opciation  other  than  an  error  test,  the  result  is 

5.7  Array  operations 

The  opriarions  foi  the  .may  data  type  arrayfT]  include  creation  of  new  arrays,  selection, 

producm  , new  may  values  by  appending  coniponents  to  an  anay  value,  and  combining  arrays  by 

concatenation  Perill  that  an  auay  value  consists  of  a tange  defined  by  a low  index  LO,  a high 

index  III,  ami  a sequence  ot  111-10*1  elements  of  the  given  type,  some  of  which  may  be 

miss_elt[  D 

open  dun 

notation 

functionality 

ci rate 

create/till 

select 

append 

ci  rate  by  elements 

index  of  highest 

array  _empty[T] 

array_fill(J,  K,  V) 

A[J] 

A[J  V] 

tj  v] 

arrayJimh(A) 

-*  arrayfT] 

tru,  mt,  T -*  arrayfT] 

arrayfT],  int  ->  T 
arrayfT],  mt,  T -*  arrayfT] 

int,  T -*  arrayfT] 

arrayfT]  -*  int 
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index  of  lowest 

arrayJiml(A) 

arrayfT]  -♦  int 

numliei  ol  elements 

array  _size(A) 

array[T]  -*  int 

set  hum  ids 

array _adjust(A,J,  K) 

arrayfT],  int,  int  -*  arrayfT] 

extend  Im.li 

array_addh(A.  V) 

array[T],  T -»  array[T] 

extend  low 

array_addi(A,  V) 

array[T],  T -♦  array[T] 

remove  high 

array_remh(A) 

arrayfT]  -*  arrayfT] 

remove  low 

array  _rcml(A) 

arrayfT]  -*  anayfT] 

set  lnw  limit 

array_setl(A,  J) 

anay[T ].  int  -»  arrayfT ] 

concatenate 

a ii  r. 

arrayfT],  arrayfT]  -»  arrayfT] 

men  go  dclmrd  cl*  ments 

arrayJoin(A,  B) 

arrayfT].  arrayfT]  -*  arrayfT] 

test  foi  undef 

is  undef(A) 

arrayfT]  ->  bool 

test  t cm  miss_elt 

is  miss_elt(A) 

arrayfT]  -»  bool 

test  tot  undef  or  miss_elt 

is  errortA) 

atrayfT]  -*  bool 

In  Tiiri.il.  [hr  i rvult  of  an  anay  opeiation  is  the  enoi  element  undef  of  the  appropriate  type 
if  rithri  an  index  npeiand  is  an  error  value  or  an  array  operand  is  undef  or  mis$_elt.  The 
rrmimin  cases  in  which  the  result  is  an  enoi  are  specified  below  for  each  operation. 

( u-tUi-  array_cmpty[t\pe  spec] 

This  is  actually  a constant  It  is  an  anay  of  the  indicated  type,  whose  low  index  is  one,  high 
index  is  7*1  ca.  and  which  therefore  contains  no  elements 

( [(•<! trififf  array_filltl  O,  HI,  V) 

This  ci rates  an  anay  with  the  given  langc  and  all  elements  equal  to  the  given  value.  If 
LO  • IIUI.  the  result  ts  undcflarrayfl  ]]  This  operation  yields  a proper  array  even  if  V is  an 
enoi  value  sire  It  as  undef  or  pos_ovcr 
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F.xample 

array f ilk  1 . 10,  6) 

is  an  array  with  1"  elements,  all  equal  to  6 
S fleet  A[J] 

Tins  opn  a non  yields  the  element  of  the  array  A at  index  J If  J is  not  within  the  range  of  the 
a,  ray,  the  lesult  is  undefiT]  Otherwise,  the  result  is  whatever  value  is  in  the  array,  which  may  be 
an  cnoi  value  such  as  miss_elt[T]  or  undef[T} 

Append  A [ J V] 

This  tetiitns  an  array  identical  to  A except  that  the  element  at  index  J has  been  replaced  by 
value  V The  nn,  e of  A is  expanded  as  npeded  to  include  index  J.  and  any  new  elements  in  the 
expanded  ran  e aie  given  the  value  miss_elt[T]  Foi  example,  if  A has  bounds  1 and  3,  and  J is 
10.  elements  d thiongh  9 will  be  miss_elt[T]  in  the  result. 

( rente  /-v  elements  [ J V ] 

yi)H  | etui  ns  in  aiiay  with  low  and  hie.h  indices  both  J.  and  one  element  V at  index  J. 

Thete  aie  abbreviated  notations  for  compositions  of  select,  append,  and  create  by  elements 
opei  at  inns  to  simplify  construction  of  multiple  element  arrays  and  for  operating  on 
multi  dimensional  atiays  See  Section  hd 

Index  el  highest,  lowest  array Jimht A),  array JimllA) 

These  functions  return  the  high  or  low  index  ot  A,  respectively 
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Nu>\!r!  cf  tior.cnti  array  _size(A) 


Tins  i etui  ns  arrayJimh(A)  - arrayJiml(A)  + I 


5(7  h array_adjust(A,  J.  K) 


I Ins  irruiri^  .ill  .iim y With  tangcfj,  K).  containing  the  same  data  as  A where  possible.  If  J is 
giram  thin  array Jirnlt A)  oi  K is  less  than  arrayJimh(A).  some  elements  of  A will  be  absent  in 
the  irMilt  It  I IS  I.  ^s  than  arrayJimltA)  or  K is  greater  than  arrayJimh(A).  the  newly  created 
positions  ate  m t to  mi  ss_clt[  T] 


E\;<  r„t  riK;,,  array_addht  A,  V).  array_addl(A.  V) 

Thru’  return  the  anay  A with  its  high  index  increased  by  one  or  its  low  index  decreased  by 
one.  and  the  given  value  V as  the  new  element 


hi?/,,  lew  array_rcmhtA).  array_rcml(A) 

i h<  se  i etui n the  anay  A with  its  high  index  decreased  by  one  or  its  low  index  increased  by 
one  An  element  of  A is  lost  m the  result  If  the  array  A has  size  zero,  the  result  is  undef. 


Set  lew  I ini  i array_setl(A,  J) 


1 Ills  adds  ) - arrayJiml(A)  to  all  element  indices  and  to  both  components  of  the  range, 
yielding  an  anay  smiilai  to  A but  with  the  origin  shifted.  Its  low  index  is  J 
array  _sctl([  ? .■  x,  Y,  z ],  5) 

denotes  the  same  value  as 

[ 5 : X,  Y,  7 ] 

when*  the  abbteviated  notation  is  defined  m Section  6.4 
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I 
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Cweatenatf  A |l  B 

T ln«i  icturns  an  an  ay  whose  size  is  (he  sum  of  the  sizes  of  A and  B,  formed  by  concatenating 
A and  l>  The  low  index  of  ihc  lesuli  is  the  same  as  the  low  index  of  A,  and  the  elements  of  A 
retain  then  otiginal  indices  The  indices  of  B aie  shifted  as  necessary. 

Merge  defined  dements  array_join(A,  B) 

This  niPige^  the  an  ays  by  elements  The  low  index  of  the  result  is  the  minimum  of 
arrayJiml(A)  and  array_liml(B).  and  the  high  index  is  the  maximum  of  array_limh(A)  and 
array _lirnh(Bf  Those  elements  of  t fic  result  that  aie  not  within  the  range  of  either  A or  B are  set 
to  miss_elt  1 hose  that  aie  within  the  range  of  one  argument  are  set  to  the  corresponding 
element  of  that  argument  Those  that  aie  within  the  range  of  both  are  set  to  the  corresponding 
element  ot  A if  the  tot  responding  element  of  B is  miss_elt.  to  the  corresponding  element  of  B if 
the  cot  responding  element  of  A is  mi$s_elt,  and  to  miss_elt  otherwise  This  operation  is 
intended  to  he  used  to  merge  partially  defined  arrays,  such  as  an  array  with  only  even  elements 
defined  (the  otheis  being  miss_elt)  and  an  array  with  only  odd  elements  defined. 

5 8 Record  operations 

I Iw  opeiations  toi  a record  type  specified  as  T = record^  Nj  : Tj  ; . . . ; Nk : Tk  ] are  the 
following  N j . . N|,  aie  (he  field  names,  and  Tj  Tk  are  the  corresponding  types. 


opet  at  ion 

notation 

functionality 

ci eate 

record[  N.  : V j , . 

•NK:Vk] 

Ti tk.t 

select,.  K i _ t 

R . N 

i 

T-T, 

replace,,  1 £ i < k 

R replace  (N,  : V] 

T*  Tj  -*  T 
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tost  to:  undcf 

tost  toi  miss_elt 

tost  ten  undef  oi  miss  elt 


is  undef(R) 
is  miss_elt(R) 
is  errortR) 


T -*  bool 
T -*  bool 
T ->  bool 


Cifuti-  recordtNj  Vj...  ; N,,  VR  ] 

I lm  builds  a locoid  value  { (Nj,  Vj),  , (Nk,  V^)  } All  of  the  field  names  associated  with 
the  tv|ir  of  the  i root d being  constructed  must  ajapear  in  the  list,  though  some  may  appear  with 
ci lot  values  such  is  undeUT,]  or  miss_elt[T|] 

Selfit  R . N 

This  letutns  the  value  of  the  named  field,  that  is,  V|  if  N « Ni 
Ri  /'.'oit  R replace  [ N V ] 

1 Ins  i etui  ns  a irroid  similar  to  R except  that  the  N-field  is  changed  to  V 


Ablneviated  notations  arc  provided  tor  compound  selectors  and  multiple  values  in  replace 
operations  See  Section  f>  h 

5.9  Operations  for  union  typos 


The  basic  operations  lot  a union  type  specified  as  T • oneof[  Nj  Tj  , . NK  T,.  j are  a 

cicite  opriation  and  a test  of  a tag  1 he  tagease  control  structure  explained  in  Section  73  is  the 
mechanism  ten  accessing  constituent  values  honi  a value  of  union  type  In  the  following,  Nj  Nh 
air  the  i i*g  names,  oid  Tj  Tk  are  ihe  cot lesponding  constituent  types 


operation 


notation 


functionality 


cie.ate.,  I i k 


make  1 [ N,  V ] 


T,  -*  T 


tag  test  I •_  i ■_  k 


is  N,  (U) 


T -*  bool 
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test  foi  undef 

is  undef(U) 

T -*  bool 

test  foi  mi55_clt 

is  miss_elt(U) 

T ->  bool 

test  tot  undef  cn  mios_clt 

is  crror(U) 

T -*  bool 

The  operations  make  T [ N : V ] and  is  N (U)  are  type-correct  only  if  N is  a tag  name  of  the 

type  T and  V is  of  that  constituent  type 

The  result  of  make  T [ N(  : V J is  the  pair  (Nj  : V)  for 

any  element  V of  T(  The  result  of  is  N,  (U)  is  true  if  U = (Nr 

undef(T)  ot  miss_elt(Tj.  or  false  otherwise. 

anything),  undef[boolean)  if  U is 

5.10  Type  conversion  operations 

Type  con  vet  sion  operations  ate  provided  between  integers  and  reals  and  between  integers  and 

chai  actei  s 

opei  atmn 

notation 

functionality 

real  to  integei 

intcger(X) 

real  -*  int 

integn  to  teal 

realtj) 

int  -*  real 

chatactrr  to  -intcgci 

integer(C) 

char  -*  im 

integ  er '-to  chai  actei 

character(J) 

int  char 

In  nrli  <ase  .in  argument  value  ot  undef  m misspelt  yields  the  result  undef  For  other  values 
the  convrisions  act  as  follows 

intcgoriX) 

If  X is  I, it eei  in  magnitude  than  is  representable  as  a proper  element  of  integer,  the  result  is 
pos_ovcr  in  ncg_over  if  X is  zero_divide,  pos_over  neg_over,  or  unknown,  the  result  is 
undef  If  X is  poo_under  or  neg_under,  the  result  is  zero  Otherwise,  the  result  is  obtained  by 
rounding  nonmtegral  values  of  X toward  zero 


reakjv 


All  proper  v .lines  ot  J .ue  converted  to  the  corresponding  reals.  If  J is  zero_divide, 

pos_over.  neg_over.  or  unknown  the  result  is  undef 


integerrC) 


Tins  opeiation  yields  the  ASCII  code  for  the  character  C. 


characlcr(jv 


This  opeiation  IS  the  inverse  of  integer(C)  Its  result  for  values  not  in  the  range  of 
integenC  > is  not  specitipd 

5.1  I Typo  correctness  of  operations 

In  \ AL  the  type  ot  value  produced  lay  each  expression  can  be  determined  by  the  translator 
(tom  the  piopertu's  ot  the  opeiatious  as  specified  m this  section  An  operation  in  a program  is  type 
collect  it  and  only  it  the  types  of  its  argument  expressions  are  the  same  as  the  argument  types 
specnied  ten  the  operation  Note  that  for  each  operator  the  types  of  the  results  are  determined 
when  the  types  of  the  argument.*  are  known 


r 


6.  CONSTANTS,  VALUE  NAMES,  AND  EXPRESSIONS 

An  expression  is  the  basic  syntactic  unit  denoting  a tuple  of  values  of  some  types  The  arity 
of  an  expiession  is  the  sup  o!  the  tuple  of  values  it  denotes  Two  expressions  are  said  to  conform  if 
they  have  the  same  anty  and  the  corresponding  values  aic  of  the  same  type.  The  design  of  the 
V AI  language  is  such  that  the  anty  and  types  of  an  expression,  and  hence  the  conformity  of  two 
e.xpi essions.  may  he  detei mined  by  inspection  of  the  program.  The  simplest  type  of  expression  of 
anty  one  is  a constant,  a value  name,  or  an  operation  applied  to  other  expressions  of  arity  one. 
The  simplest  type  of  expiession  of  higher  arity  is  a series  of  expressions  of  arity  one  separated  by 
commas 

6.1  Constants 

A constant  is  a syntactic  unit  of  arity  one  whose  value  and  type  are  manifest  from  its  form. 
Syntax 


constant  = nil  true  false 
1 1 

| intrget  ruimbct  [ tcal-numbct  j character-constant  j character-string-constant 
array_empty[type-spec] 

i i ■ 

; undcUtype  spec]  ) miGS_elt[typc-spec] 

| pos_over[type-spcc]  j neg_over[tYpe-spec] 

; pos_under[type  spec]  j neg_under[rype  spec] 
j unknownttype  spec]  j zero_di  vide[type  spec] 


TIip  values  undefttype  spec]  and  miss_elt[type-spec]  are  constants  denoting  the  undefined 
value  and  missing  aitay  element  value  of  the  type  indicated  in  the  type-spec  For  example, 
undeEarrayiintoger]]  denotes  the  undefined  value  of  type  arraytinteger]  These  two  constants 
exist  tm  dl  types,  including  anay,  tecoid,  and  union  types  The  remaining  constants  for  each  data 
type  .11  r is  follows: 


The  oniy  constant  of  the  null  type  is  the  reserved  word  nil 
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Thr  constants  of  the  boolean  type  are  the  reserved  words  true  and  false 


The  pt incipal  constants  ot  the  integer  and  real  type  3ie  integer  numbers  and  real  numbers, 
the  format  of  which  .ue  given  in  bection  3.  There  are  also  the  following  arithmetic  error  constants: 


pos_over[integer] 

neg_over[integer] 


unknowniinteger] 

zoro_divide[intcger] 


pos_over[real] 

neg_over[real] 

pos_under[real] 

neg_under[real] 

unknown[real] 

zero_divide[real] 


The  constants  ot  the  character  type  ate  the  characters  enclosed  in  single  quotes. 

A ihaiactn  stun,;  enclosed  in  double  quotes  is  a constant  of  type  arrayLcharacter] 
coiitaiiun,  the  individual  characters  of  the  string  as  elements.  The  first  character  is  at  index  one. 

Thr  mav  constant  array_emptyuype]  denotes  the  array  of  the  indicated  element  type  whose 
range  is  (I.  0),  and  hence  has  no  elements 


Theie  are  no  othei  array,  tecord,  01  union  constants,  but  various  constructing  operators  may 
be  used  with  constant  aiguments  to  denote  "constant"  arrays,  records,  or  union  elements. 

Examples 

[ I : 1,  2,  3,  d,  5 ] (array  constant,  see  Section  6.4) 

record  [ A : 6 ; B : 7.3  ] (record  constant) 

make  d [ A : 6 ] (constant  of  union  type  T) 

6.2  Value  names 

A '..line  name  is  a name  which  denotes  a single  computed  value  of  a specific  type.  Every 
value  name  is  mtmdnred  cirhei  in  the  header  of  a function  definition  (if  the  value  name  is  a 
foim.il  aigiimrnt  of  the  function  being  defined)  or  in  a program  construct  such  as  a let  block  or  a 
for  block  In  eithn  case,  each  value  name  has  a scope  and  a type,  and  has  a unique  value  of  that 
type  foi  i ach  instantiation  clut in;,  execution  of  the  function  or  block  with  which  the  value  name  is 
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assoc  Kilt'd  The  scope  of  a value  name  is  the  region  of  ptogram  text  in  which  a reference  to  the 
value  name  denotes  ns  value  The  scope  and  type  of  any  value  name  may  be  determined  by 
inspection  of  the  progtam  construct  that  introduces  it  Its  value  of  course  depends  on  the  values 
present  during  the  patticulai  instantiation  of  the  function  or  block 

The  scope  ot  a value  name  introduced  as  a formal  argument  of  a function  is  the  entire 
function  definition,  less  any  inner  scopes  that  re-introduce  the  same  value  name  The  type  of  such 
a value  name  is  given  by  a type  declaration  in  the  function  header.  Its  value  is  the  value  of  the 
corresponding  argument  for  the  relevant  invocation  of  the  function 
Example 

function  F ( x : integer  returns  real  ) 

presMOn> 

endfun 

An  appearance  of  value  name  X in  the  expression  denotes  the  value  of  the  argument  with  which  F 
was  invoked.  Its  type  is  integer 

The  scope  of  a value  name  mfioduced  in  a program  construct  such  as  a let  or  for  block  is 
some  tegion  of  the  const! net  that  depends  on  the  nature  of  the  construct,  less  any  inner  scopes  that 
i r-inttodiire  the  same  value  name.  The  manner  in  which  the  type  and  value  of  the  value  name  are 
established  depends  on  the  form  of  the  construct 
Example 
let 

X : real  - 3.0  ; 

<anolhpr  decided  ; 

•^another  decided’  i 
'another  decide)'  ; 
in  • evnro'  ion' 
cndlct 

The  scope  of  X is  the  entiie  block,  including  the  expression  after  in,  less  any  inner  scopes  that 
re  intio  nice  X Its  type  is  real,  its  value  is  3.0.  The  let  construct  is  described  in  Section  7.2.  If 
this  block  had  appeared  within  the  scope  of  X intioduced  by  some  outer  construct,  that  outer  scope, 
with  its  value  and  type,  would  disappear  within  this  let  block. 
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6.3  Expressions 

F.xpiessions  air  built  out  of  smallei  cxpiessions  by  means  of  operation  symbols. 

.S \rtfar 

expression  level  I exp  | expiession  . level  I exp  (the  antics  are  added) 

111  the  next  8 lines,  the  opei.itors  may  only  he  used  if  all  opeiands  are  of  arity  one. 

level  I exp  ::  level  -2-exp  | level  I exp  | level-2-e\p  (boolean  "or") 

It  vel  ? exp  level  3-exp  ' level-2-exp  level-?-exp  (boolean  "and") 

level  1 exp  level  I exp  J ~ level  -1-exp  (boolean  "not") 

level-1  exp  Irvcl-Vcxp  j level--)  exp  relatiOnal-op  level-5-exp 

U vel  r.  exp  ::  = levcl-6-cxp  | lcvcl-5-exp  ||  lcvcl-6-cxp  (array  concatenate) 

level-6-rxp  level -7-cxp  j lcvel-6-exp  adding-op  level-7-exp 

level -7 -exp  lcvel-8-exp  | level-7-exp  multiplying-op  level-8-exp 

level  8-exp  primary  | unary-op  primary 

relational  up  ::  < j <=  | > | >=  | = j 

addin  , op  : : - + | - 
iniiltiplying-op  ::  =■  * | / 
unai  y-op  : : - | 


pimiaiy  ::  - constant  | value-name 
| b'xpi  et sion) 

| invocation 

j ii ray-ref  J array  generatoi 
| record  ret  | record  generator 
j oneot  test  | oneof  generator 
j enot  test  | prefix-operation 


(these  have  arity  one) 

(same  arity  as  expression  in  parentheses) 
(arity  is  the  number  of  values  returned) 

(These  eight  forms 
have  arity  one ) 
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j conditional  exp 
Irt-in-exp 
tagrasc  exp 
itci alion  exp 
l or  ^ II  exp 

value  name  ::=  name 


(These  five  structures  are 
> described  in  Section  7. 

'1  hey  have  arbitrary  anty.) 


In  an  invocation,  ihe  anty  of  the  expression  in  parentheses  must  be  equal  to  the  number  of 
arguments  requited  by  the  function 

invocation  function  name  (expression) 
function  name  name 
array-ref  ::  primary  [expression] 

array  gene,  ator  [ expression  expression  ] ; expression  : expression  } ] 

j primary  [ expression  expression  j , expression  : expression  } ] 
tecoid-ief  pnmary  . field-name 

In  the  next  7 foims,  all  expressions  must  have  anty  one  except  as  otherwise  noted,  and  the  resultant 
expressions  always  have  anty  one 

ipcoicI  genet, atm  ::  record  [ field-name  expression  j ; field-name  . expression  } ] 

| pnmary  replace  [ field  . expiession  j ; field  : expression  } ] 
field  ::  field  name  | . field-name  | 
field-name  - name 
oneof-test  ::  is  tag-name  (expiession) 
oneut  rnn.itor  : : make  type  spec  [ tag-name  expression  ] 
tag-name  : : name 

ei  ioi -test  ::  is  undef  (expression)  | is  miss_elt  (expression) 

| is  error  (expression)  | is  zero_divide  (expression) 
is  pos_over  (expression)  | is  neg_over  (expression) 

| is  pos_under  (rxpiession)  | is  neg_under  (expression) 

I is  over  (expiession)  | is  under  (expression) 

I is  ar.lh_crror  (expiession)  | is  unknown  (expression) 


r 
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The  antics  of  the  aigumrnt  expicssions  for  a prefix  operation  are  as  shown,  and  the  result  arity  is 
always  one 

(arity  = 1) 

(arity  = 1) 

(arity  = I) 

(arity  - 1) 

(arity  ■=  1) 

(arity  = 2) 

(any  arity) 

(any  arity) 

(arity  = 3) 

(arity  = 1) 

(arity  * 1) 

(arity  = 1) 

(arity  = 3) 

(arity  - 2) 

(arity  = 2) 

(arity  - 1) 

(arity  ■=  1) 

(arity  = 2) 

(arity  = 2) 

Note  that  opnatots  obey  the  customaiy  picccdcnce  rules:  unary  plus  and  minus  have  highest 
pnotuy.  multiplicative  opciatois  (*,  /)  are  next,  additive  operators  (+,  -)  are  next;  "If  is  next; 
i elat mna I opnatcus  (<.  < >,  >=.  =,  ~=)  arc  next,  is  next;  is  next;  and  T has  lowest 

pi  unity 
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piefixopciatinn  integer  (expiession) 
| real  (expression) 

| character  (expression) 

| abs  (expression) 

; exp  (expression) 

| mod  (expression) 
i max  (expression) 
j min  (expipssion) 

| ar r ay_f ill  (expression) 

! array  Jimh  (expression) 

J arrayjiml  (expression) 
j at  ray_oize  (expression) 

| array _adju5t  (expiession) 
j array _addh  (expiession) 
j array_addl  (expression) 
array _remh  (expression) 
i array_reml  (expiession) 

| array_join  (expression) 

' array_setl  (expiession) 


1 


true 

3 71-0? 

•c  • * 

"XY 1"  ||  [I  : C]  ||  "I’QR" 

array_empty  [integer] 
zero_divide[real] 

x ''  2 & / ■;  3 * K 
- X i 3 * B 
3 * ( X i Y ) 

func(3»X,  Y)  (if  "func"  returns  one  value) 

[ 3 : l ] 

A [ 3 : Z ] 

A [ 4.  j ] 

P . X . Y . ZZ 
record  [ A : P ; B : 0 ] 

P replace  [ A.X  : P ; B.Y  : 0 ] 

is  a (U> 

make  r [A] : 3 

is  over  (X> 

undef[r  eal] 

if  l'  then  4 else  b endif  (see  Section  7) 

6.4  Abbreviations  for  array  operations 

The  synta \ piovides  abhieviated  forms  for  the  select,  append,  and  create  by  elements 
opciatinns.  to  a Him’  convenient  anay  cication  and  handling  of  multidimensional  arrays. 

Since  multi  dimensional  arrays  are  represented  as  arrays  of  arrays,  the  straightforward  way  to 
select  .in  element  is  with  an  expression  such  as 
AfJ][Xl[|  1 

This  may  he  wi itren 
A[J,  K,  L] 

The  e\pi ession  within  biackets  has  auty  thiee 
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r 

I 


r 


fs 


I tic  opoi atiou  can  be  used  for  multi  dimensional  arrays  by  using  an  expression  of 

arity  gieater  than  one  fur  the  subscripts.  Thus 
A [ J.  K.  L : V ] 

is  equivalent  to 

A [ J : A[J]  [ K : A[J,  K]  [ L : V]]] 

that  is.  A with  its  J.  K,  L element  replaced  by  V. 

Seveial  values  may  he  appended  at  consecutive  indices  by  using  an  expression  of  arity  greater 
than  one 

A [ J : V,  W,  X ] 

is  ci]iiivaU  lit  to 

A [ J:V  ; Jei:W  ; J+2:X  ] 

If  rmilti  iliiiirii'.ioiial  arrays  arc  being  used,  the  last  index  is  the  one  that  varies  when  multiple  data 
items  aie  picsent 

A [ J,  K,  L : V,  W,  X ] 
is  equivalent  to 

A [ J,  K.  L : V ; J,  K,  L+T  : W ; J,  K,  1+2  : X ] 

These  expiessions  need  not  be  constituted  by  listing  expicssions  of  arity  one  separated  by  commas 
Othei  tm  ms  nt  evpiessiiins  with  high  anty  will  he  described  in  Section  66  For  example: 

A [ J : fRIPLEtX,  V,  Z)  ] 

tills  m in  lices  |.  ] + 1,  and  ] a 2 if  TRIPLE  is  a function  returning  three  values. 

Finally,  it /'/‘fni/  operations  may  be  composed  by  writing  the  J : V pairs  in  sequence  within  the 
biackots,  srpaiated  by  semicolons 

A f Jj  : Vj  ; .l2  : V2  S . . . ; JN  : VN  ] 
is  equivalent  to 

A[  .1,  : V j ][.b>  V2  ]...[  JN  : VN  ) 
when  is  noted  above.  ](  and/or  V may  he  expressions  of  any  arity. 


i 
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All  of  rlir  abbreviations  petmissible  lot  tltr  append  operation  are  permissible  for  the  create  by 
elements  operation 
Examples 

l 3 : X ; 5 : Y,  Z ] 

is  an  aitay  with  range  (3,  6).  and  elements  X,  miss_elt,  Y,  and  Z. 

( 1 : A ] 

is  a "singleton"  anay  with  low  and  high  indices  both  one 

6.5  Abbreviations  for  record  operations 

There  ate  abbreviated  forms  lor  the  replace  operation  to  allow  convenient  handling  of 
compound  selectors  and  multiple  data  elements 

Accessing  teroids  with  compound  selectors  is  performed  in  the  straightforward  way: 

R.  A.H.C. 


Compound  selectors  may  he  used  in  replace  operations  by  writing  the  field  names  separated 
by  pel  mils 

R replace  [ A.B.C  : V ] 
is  equivalent  to 

R replace  [ A : R.  A replace  [ 0 : R.  A.  B replace  [ C : V ]]] 
that  is,  R with  its  A.  B.C.  subcomponent  replaced  by  V 

replace  operations  may  he  composed  by  wilting  the  N : V pairs  in  sequence  within  the 
biadfts.  separated  by  semicolons 

P replace  [ A : V ; B : W ; C.D  : X ] 

is  equivalent  to 

<(R  replace  [ A : v ])  replace  [ 0 : w ])  replace  [ C D : x ] 


- ^ 
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6.6  Expressions  of  higher  arity 

The  program  stiuctures  provided  in  VAL  for  conditional  computation  and  iteration  are 
expu  lsions  of  ai  Inti  ary  atity,  and  are  described  in  Section  7.  Such  expressions,  or  function 
invocations,  may  occui  in  program  text  in  places  that  require  a tuple  of  values  of  specified  types: 
the  argument  list  of  an  operation  or  function  invocation,  the  body  of  a function  definition,  a list  of 
array  indices  01  elements  in  an  array  operation,  or  in  building  the  program  structures  presented  in 
Section  7 

6.7  Function  invocations 

A function  invocation  consists  of  the  name  of  the  function  followed  by  an  argument  list  within 
parentheses  (The  syntax  is  the  same  for  internal  and  external  and  external  functions.)  The 
argument  list  is  an  expression,  whose  arity  and  types  conform  to  the  arguments  required  by  the 
function  Tins  infoimation  is  given  in  the  header  of  the  function  definition.  See  Section  8 The 
argument  list  is  usually  wntten  as  a series  of  expressions  of  arity  one  separated  by  commas,  but  it 
may  be  any  expiession 

A (unction  invocation  is  itself  an  expression  whose  arity  and  types  are  the  number  and  types 
of  the  \ alues  returned  lay  the  function,  which  information  also  appears  in  the  function's  header.  An 
invocation  that  i etui  ns  one  value  may  appear  in  expressions  with  complete  generality,  such  as  an 
aigument  to  aiithmetic,  anay,  and  lecord  opriations  An  invocation  that  returns  several  values 
may  unly  be  used  where  expressions  oi  higher  auty  are  permitted 

In  the  followni  examples,  SINGLE,  DOUBLE,  and  TRIPLE  each  taLe  3 arguments  and 
retui  n I,  ?,  or  3 valiu  s,  respectively 

K 3 a / * SINGLE  (X  4 1,3,  SINGLE  (X  + 2,  4,  W)) ; 

In  the  following  example,  if  T is  false,  F and  G are  defined  to  be  DOUBLE  (X,  Y,  Z),  while 
H is  defined  to  be  \V 


l , G,  H if  i’  then  TRIPLE  (X,  V,  7)  else  DOUBLE  (X,  Y,  Z),  W endif  ; 
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Siikp  the  argument  list  for  any  function  may  bp  any  expression,  it  may  be  a multiple-result 
function  invocation  or  other  program  structure 
3 + SINGLE'  (IRIPIC  (X.  V,  7» 

3 + SINUE  <P.  DOURLF  (X,  Y,  /)) 

■I  + SINGI  E (if  P then  4,  5 else  DOUBLE  (P,  Q,  R)  endif,  X) 

The  last  example  invokes  SINGLE  with  three  arguments,  of  which  the  first  two  are  either  4 and  5 
oi  the  two  values  letuined  by  DOUBLE  The  third  argument  to  SINGLE  is  always  X. 


7 PROGRAM  STRUCTURES 
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1 lif  (nos  i tin  stmctuies  descnbed  in  tins  section  ate  specific  forms  of  expressions.  If  their 
anty  is  chip,  they  may  apprai  in  anlhmetic  opeiations. 

F xaniplc 

if  P Ihcn  x else  v endif  + 3 
Tins  pypirssinn  Ins  v.ilin  \ * ’ oi  Y+3,  depending  on  P 


7. 1 The  IF  construct 

TIip  com liticiinl  expiession  selects  one  of  several  expressions,  depending  on  the  values  of 
boolm n e.xpi essinns 

Syntax 

conditional  exp  ^ if  expression  then  expiession 

} elseif  expression  then  expression  } 
else  expression 

endif 

The  expi escions  tollnwiii.  if  and  elseif  aie  test  expressions  Their  anty  must  be  one  and  their 
type  boolean  The  rxpirsxmns  following  then  and  else  are  the  arms.  They  must  conform  to 

each  or  hr: . and  the  t ntn  r consti  net  conforms  to  the  arms. 

The  rnmr  construct  is  an  expression  whose  tuple  of  values  is  that  of  the  first  arm  whose  test 
rxpu  ssimi  is  tun  tu  the  final  arm  n all  test  expiessions  are  false  If  any  test  expression  needed  to 
e\  ilmtf  the  coiiMiuct  is  an  tiro:  value  (undeFboolean]  or  miss_elt[boolean]),  the  value  of  the 
• in n * am  ;t  net  n a tuple  ot  undef  values  of  the  appropriate  types  (If  a test  expression  has  value 
true  I in  i test  expire  cions  up  not  nepded  and  may  have  error  values  without  affecting  evaluation 
ot  rtip  const! net > 

Tin  if  con •••iint  mtiodiiccs  no  valor  names  All  value  name  scopes  pass  into  an  if  construct. 
If  rim  scope  oi  a value  name  includes  an  if  construct,  it  includes  all  of  the  expressions  of  that 
consti  net,  co  that  value  name  may  be  used  anywhere  inside  the  conditional  construct. 


f 
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7.2  The  LET  construct 

I hr  |> i • 1 1 ' 1 1 r of  this  construct  is  to  introduce  one  or  more  value  names,  define  their  values, 
and  evaluate  an  expression  within  their  scope  (that  is,  making  use  of  their  defined  values). 

Syntax 

let-in-exp  : : = 

let  dccklcf  part 
in  expression 

endlet 

decide!  pan  ::  deddef  { ; decide!  } [ ; ] 
deride!  ::  - decl 
j def 

| drrl  j , decl  j-  = expression 
decl  ::=  value-name  j , value-name  j type-spec 
def  value-name  { , value-name  } :=  expression 

I . ei  y value  name  mtioduced  in  a let  block  must  be  dedaied  exactly  once  and  defined  exactly 
unce  in  that  block  I he  declaration  may  be  part  of  the  definition,  or  it  may  be  by  itself  preceding 
the  definition 
Examples 

X : integer  ; (declaration) 

X :=  3 ; (definition) 

Y : real  : = 4 7 i Q ; (declaration  as  part  of  definition) 

The  declaration  of  a value  name  must  precede  or  be  part  of  its  definition.  Each  value  name 
must  be  ciet med  before  it  is  used  (on  the  right  hand  side  of  another  definition).  Declarations  and 
definitions  may  he  mixed  in  any  older  as  long  as  these  requirements  are  met. 

Several  value  names  may  be  declared  at  once 
x,  y,  7 . real  ; 

This  clrdaies  all  ?■  names  to  be  real 
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Sevoi.il  value  names  may  he  defined  at  once.  The  number  and  types  of  the  names  must 
con  lot  m to  the  anty  and  types  of  the  cxpiesston  on  the  light  hand  side 

X.  Y,  Z :=  10,  2.0,  3 0 ; 

P,  0,  R : IRlPLEfX,  Y,  Z>  ; 

Spvoi.iI  value  names  may  he  declaied  and  defined  at  once.  In  this  case,  each  of  a group  of 
value  name  names  pieceding  a type  specification  are  declared  to  be  of  that  type. 

X : integer,  Y,  Z : real  :=  3,  ^.0,  5 0 ; 

This  defines  \ to  he  integei,  and  both  Y and  Z to  be  tea! 

Tin  declarations,  definitions,  and  combined  declarations  and  definitions  are  separated  by 

semicolons,  a semicolon  atter  the  last  is  option.! I 

The  scope  of  i.uh  value  name  introduced  in  a let  block  is  the  entire  block  less  any  inner 
constructs  that  te  mtioduce  the  same  value  name  However,  a value  name  must  not  be  used  in  the 
definitions  piecedmg  its  own  definition 

All  smprs  fm  value  names  not  introduced  in  a given  let  block  pass  into  that  block.  Hence,  if 
the  snipe  of  a value  name  (mttoduccd  by  an  outn  constiuct)  includes  a let  block  and  that  value 
name  is  not  n mtio  iun  i.  it  may  be  tefeiud  to  licely  within  the  block 
F.xaniple 

let  x real  , T real  ; 

T : = P + 3.7  ; 

X : 1 ♦ 2.4  ; 

in  > * T 
endlct 

In  this  iinple.  the  value  ot  P is  impoited  fiom  the  outer  context  The  scopes  of  T and  X are 
both  the  « mu r him  I A iilnrncr  to  \ m the  definition  of  T would  be  illegal  because  it  is  within 
tin'  scope  cl  \ h ni  dues  not  follow  the  dclmition  of  X The  anty  of  this  construct  is  one,  and  its 
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Smcr  a value  name  may  not  be  used  until  after  it  has  been  defined,  and  must  be  defined  only 
oiki  hi  a block,  it  may  not  ajijjcai  in  its  own  definition.  Hence  definitions  such  as 
1 I + I : 

aie  nrvn  legal  m lot  blocks  (though  they  may  occur  in  iter  clauses  of  for  blocks;  see  Section  It) 

The  cxptcssion  following  the  word  in  is  in  the  scope  of  ail  of  the  introduced  value  names,  and 
hence  can  make  use  of  their  definitions.  The  entire  let  construct  conforms  to  this  expression. 

7.3  The  TAGCASE  construct 

rim  selects  one  of  a number  of  expressions,  depending  on  the  tag  of  a oneof  value,  and 
extracts  the  constituent  value 

Syyjfny 

tagease  exp  : ; = 

tagease  [ value  name  - ] expression  [ ; ] 
tag  list  cxpiession 
| tag  list  expression  } 
otherwise  expression  J 
endtag 

tag  list  ::  tag  tag  name  { , tag-name  j- 

Tim  entile  coiiMiucr  is  an  expression  whose  values  are  those  of  the  expression  in  the  arm  whose  tag 
name  matches  that  of  the  value  of  the  test  expression  If  no  match  is  found,  the  arm  following  the 


woid  otherwise  is  used  All  aims  must  conform  to  each  othei,  and  the 


entire  construct  conforms 


to  the  ai  ins 


The  expirssion  following  the  word  tagease  must  be  of  anty  one  and  of  a oneof  type.  The 
rag  names  appealing  in  the  aims  of  the  coristiuct  must  he  tags  of  that  oneof  type.  If  they  comprise 
all  the  tags  of  that  type,  the  otherwise  arm  is  not  used;  if  not,  the  otherwise  arm  is  required. 


I 

I 


It  a value  name  and  " " appear  after  the  word  tagease,  that  name  is  introduced  for  each 
aim  ut  tin  tin  loiiMiuct  except  the  otherwise  arm.  Its  scope  in  each  case  is  the  expression  in  that 
arm.  ami  its  type  is  the  constituent  type  indicated  by  the  tag  name  for  that  arm  If  an  arm  is 
evaluated  tnieinin  , that  the  tag  o!  the  test  expression  matches  the  tag  name  of  the  arm),  the  value 
name  is  d-  :m>  I to  be  the  constituent  value  from  the  test  expression  If  the  value  name  and  do 
not  appeal,  the  constituent  value  is  not  made  available  inside  the  arms 
Example 

I et  \ be  of  type 

oneof  [ a integer  ; B : arrayiinteger] ; c . real  ; D : boolean  ] 

It  \ has  it  \ ind  constituent  value  3, 

tagease  P : x 
tag  A : P a 4 
tag  B : P(f>) 

otlieryvise  b 
endtag 

has  value  ~ The  fust  uni  is  tal.eu,  and  P (whose  type  is  integer  in  that  arm)  is  defined  to  be  3, 
the  constituent  v due  ot  \ If  \ has  tag  B and  constituent  value  some  artay  whose  sixth  element  is 
thp  v due  ut  the  ihme  consttiift  is  '?  In  that  case,  P is  defined  to  be  the  array  If  X has  tag  C 
oi  i>.  the  const! tin  has  value  f>  In  that  case  the  constituent  value  is  not  available,  since  the  value 
name’s  scopes  do  not  include  the  otherwise  arm  (This  is  because  the  otherwise  arm  can 
encompass  dift'  tent  constituent  types,  so  the  type  ot  the  value  name  could  not  be  determined ) 

Muir-  th  in  one  t o;  name  may  share  the  same  arm  if  they  indicate  the  same  type.  In  this  case, 

1 

the  t iv  names  aie  all  listed,  sepaiated  by  commas,  alter  the  word  tag 
Example 

I »■[  xx  l>e  ot  type 

oneof  [ A : integer  ; B real  ; C : integer  ] 

Then  tin  followup  is  petnussible 
tagease  P ; = x ; 

tag  A,  C expression | (P  is  integer  here) 

tag  B : r> prcssionp  (P  is  real  here) 

endtag 
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All  scopes  of  value  names  oilier  than  the  one  appearing  after  the  word  tagcase  pass  into  the 
conMitiit  An  mite  scope  foi  a value  name  with  the  same  name  as  the  one  appearing  after  the 
word  tagcase  does  not  pass  into  the  tagcase  construct. 


It  the  value  of  the  test  expiession  is  an  erior  value,  the  value  of  the  entire  construct  is  a tuple 
of  undef  values  of  the  appropriate  types 

7.4  The  FOR  construct 

This  pei forms  sequential  iteiation  in  which  one  iteiation  cycle  depends  on  the  results  of 
previous  cycles  The  construct  introduces  a number  of  value  names,  called  loop  names,  which 
convey  mfoi  motion  fiom  one  cycle  to  the  next 


Synhv 

iteration  exp  : : - 

for  deddef  pait 
do  itei  -end 

endfor 

itei  end  if  expression  then  itn-cnd 

[ clscif  expiession  then  iter-end  \ 
else  net  end  endif 

I tagcase  [ . due  name  :=  j expression  j ; ] 
tag  list  iter-end 
•J  tag  list  iter-end  } 
otherwise  itei  end  j endtag 
| let  derldrf  put  in  iter-end  endlet 
J expiession 
| iter  del  pair  enditer 
rlef-pait  ::  = riel  { , def  } [ , 1 

l lie  loop  names  air  those  appearing  in  the  declarations  and  definitions  following  the  word 
for  These  drclatations  and  definitions  have  the  same  form  as  in  a let  block. 


- 52  - 

1 he  heluvim  of  the  for  construct  is  as  follows  The  loop  names  are  initialized,  only  once,  to 
the  values  indicated  in  the  definitions  appearing  alter  the  woid  for,  and  the  first  iteration  cycle 
begins  Tuning  each  iteiation  cycle  these  names  have  fixed  values. 

The  iteiation  body  is  then  evaluated,  using  the  current  definitions  of  the  loop  names.  The 
irsult  oi  that  evaluation  is  cither  a decision  to  terminate  the  iteration,  with  values  to  be  returned,  or 
a decision  to  iteiate  again  with  new  definitions  tor  the  loop  names. 

The  iteiation  body  consists  of  an  if  construct,  tagcase  construct,  or  a tree  of  if,  tagcase,  and 
let  cotisfi nets,  with  a sli-  ht  modification  the  arms  may  either  be  conventional  expressions,  or  may 
con s i - ; ut  iter,  some  ledelmitions.  and  enditer  Theic  may  be  many  arms  of  each  type. 

it  tlm  aim  that  is  chosen  ten  evaluation  is  an  expression,  the  iteration  terminates,  and  the 
v aliu  s o'  the  rvj.  . ion  aic  the  values  of  the  entile  tor  construct.  All  such  arms  must  conform  to 
ear  1 1 (it lie t . and  the  r ntu  c consti  net  cpnfoi  ms  to  these  aims. 

If  the  chci  'ii  aim  consists  of  iter,  some  redefinitions,  and  enditer,  those  loop  names  are 
irdetined  accoidiiie.  tci  the  the  right  hand  sides  of  the  redefinitions,  and  evaluation  of  the  body  is 
repeated 
Examples 

for  Y : integer  m ] ; P : integer  N i 
do  if  P 1 then  iter  y :=  y*p  : P P-]  , enditer 
else  Y 
endif 

endfor 

This  computes  the  tactoiial  ot  N It  introduces  loop  names  Y and  P,  which  are  both  integer.  Their 
mitiil  \ does  at<  I and  N,  icspectively 

The  body  of  this  constiuct  is  in  if,  then, 'else  construct  whose  first  arm  is  a redefinition  and 
whose  second  aim  o the  expiession  Accmdingly,  at  the  beginning  of  each  iteration  cycle  P is 
tested  It  it  is  nnnzeio,  the  iter  aim  gives  V the  new  value  Y*P  and  P the  new  value  P-1,  and 
aimthei  cycle  hr  ms  If  p is  ?eio,  the  iteiation  terminates  with  the  value  Y. 
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(or  T : real  : x , 

do  lot  0 : real  : (X/T  - T)/2  ; 

in  if  D v ops  then  T 

else  iter  T :=  T + D ; enditer 
endif 

endlet 

endfor 

I Ins  computes  the  s^iute  root  at  \,  using,  Newton's  method  The  iteration  body  uses  a let  block 
to  mtioduce  the  teni|ioi.uy  name  D It  imports  the  value  e/>j  from  the  context  in  which  the  block 

appe.ii  5 

I hr  next  example  tevrtscs  the  list  given  as  "INPUT”,  by  initially  defining  T to  be  INPUT 
and  II  to  hr  the  empty  list,  and  then  repeatedly  moving  items  from  T to  U Assume  the  type  LIST 
has  breii  Helmed  hy 

typo  L I'd  onoof  [ empty  null  ; nonempty  : record  [ item  : real  ; rest  : LIST  ]] 

A I Is  I ' is  i i ham  nl  tec oids  (outlining  an  ailutrary  number  (perhaps  zero)  of  reals 

for  T.  U LIST  : INPUT,  make  LIST  [ empty  : nil  ] ; 
do  tagease  z • T ; 

tag  empty  : U 
tag  nonempty  : 

iter 

T,  U ■ Z rest,  make  LIST  [ nonempty  : record  [ item  : Z.item  | rest  : U ]]  ; 
enditer 

endtag 

endfor 

1 In-  loop  value  names  must  all  he  different  Their  scopes  ate  the  entire  for  construct  less  any 
nm. a Id. irks  tint  i,  mtioduce  the  same  name  They  ate  deflated  and  initially  defined  in  the  same 
iniimn  as  m a lot  hind  As  m a let  block,  each  name  must  be  declared  exactly  once  and  defined 
exactly  nitre.  and  may  appear  on  the  right  hand  side  only  in  definitions  after  its  own.  Each 
dor d n ation,  definition,  or  combined  declaration  and  definition  must  be  followed  by  a semicolon 
except  the  last,  fm  which  the  semicolon  is  optional 


Within  rich  iter  aim  the  tedcfimd  value  names  must  be  a subset  of  the  loop  names.  These 
redefinitions  may  make  use  of  the  previous  values  of  all  names,  including  the  one  being  redefined 
These  i mitioiis  do  not  include  declarations,  since  the  types  of  the  loop  names  were  declared  at 
the  he  .uniin  o!  the  for  constiuct  Each  redefinition  must  be  followed  by  a semicolon  except  the 
last,  ten  w Inch  the  semicolon  is  optional 

Unlike  the  drtinitions  in  a let/in  block  cu  the  initial  loop  value  definitions  in  a for  block,  a 
i edetinuion  in  an  i t or  danse  may  contain,  on  its  right  hand  side,  loop  names  that  appear  on  the 
left  hand  side  of  the  same  01  latei  redefinitions  In  such  a case,  the  "old”  value  is  used,  that  is,  the 
value  that  the  name  had  on  the  notation  cycle  just  ending.  If  the  name  appeared  on  the  left  hand 
sich'  of  an  ratliei  redefinition,  its  "new"  value  is  used,  that  is,  the  result  of  that  redefinition. 

Hence  a mldnntion  such  as 
J :=  J f 1 ; 

is  l<  il,  a ml  mi  ms  that  the  next  iteration  cycle  is  to  begin  with  a value  of  J which  is  one  greater 
th  hi  ns  \ dm  mi  the  cycle  pist  ended  In  the  factonal  example  given  above,  the  iteration  clause 
iter  y y*p  ; n . P- 1 ; enditer 

multiple  c Y In-  the  ,’V  value  of  P If  the  oidct  had  been  reversed: 
iter  P F’- 1 ; y Y*P  ; enditer 

Y would  he  multiplied  hy  the  new  value  of  P,  and  the  example  program  would  compute  the 
factcu  nl  of  N I 

d hi  simplest  way  to  teclefuie  two  ot  more  loop  variables  in  terms  of  each  others'  old  values  is 
to  use  a multiple  assignment.  For  example 
iter  x,  v Y,  x , enditer 

exclnn  .es  the  values  of  X and  Y for  the  next  itetation  cycle 


A l""p  name  imt  ipp<  <tiii  in  a redefinition  after  iter  retains  its  old  value 
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I lir  scopes  ol  jiiv  value  names  other  than  the  loop  names  pass  from  outer  blocks  into  the  for 

blue  k 

If  an  enui  occiiis  while  determining  which  arm  of  the  loop  body  to  evaluate  (a  test  expression 
in  an  if  oi  tap, case  constiuct  evaluates  to  an  cnoi  value)  the  iteration  teiminates  and  returns  as  its 
value  a tuple  ot  undcf  values  of  apptopriate  types  An  errot  arising  elsewhere  in  the  loop  body 
does  not  cause  special  action  If  it  arises  in  an  iter  arm  the  indicated  loop  name  is  defined  to  be 
the  enoi  value  and  the  itnation  continues  If  it  anscs  in  an  expression  giving  the  final  value  to  be 
returned,  that  crroi  value  simply  appears  in  the  result 

7.5  The  FOKALl  construct 

T Ins  geneiates  one  oi  moie  sets  of  values,  of  uniform  type  within  each  set,  and  either  returns 
them  as  mays  oi  i elm  ns  the  result  ol  some  opnation  (such  as  addition)  on  them.  The  former  case 
is  indicated  by  the  woid  construct,  the  latter  by  the  woid  oval  followed  by  the  name  of  the 
opci  a tor  The  values  may  not  depend  on  each  other  - the  intention  is  that  they  be  computed 
simultaneously  on  a parallel  computer  capable  of  doing  so 

I Ins  consii net  miiodiices  one  or  more  irulex  value  names  of  type  integer  and  a number  of 
optional  tempoi ai y value  names,  the  lattrt  in  (he  (lie  same  manner  as  in  a let  block 

Sv’l/cT.V 

fotall  exp  ::  - 

for  all  value  name  in  [ expiession  ] | , value  name  in  [ expression  ] ] 

[ decldef  pa  it  ] 
loiall  body  part 
[ loiall  body  pail  } 

endall 

loiall  ho,l\  pan  ::  construct  expiession  | eval  feu  a II  op  expression 
loiall  op  ::  plus  j limes  j min  i max  j or  | and 


F 


The  index  names  are  those  appealing  before  the  word  in  The  temporary  names  are  those 
appeal  nig  in  the  declinations  and  definitions 

The  index  and  temporal y names  must  all  be  different.  Their  scopes  are  the  entire  construct 
less  any  ninet  blocks  that  ic  introduce  the  same  value  name.  The  types  of  the  indices  are  integer. 
The  types  of  the  tempoiary  names  ate  specified  in  their  declarations.  As  in  a let  expression,  a 
tempotaty  name  may  not  appeal  in  definitions  preceding  its  own 

Each  expression  appearing  in  brackets  after  the  word  in  is  of  arity  two  with  both  types 
interei  The  two  components  ate  the  low  and  high  limits,  inclusive,  for  the  index.  For  each 
number  within  those  limits,  the  index  is  defined  to  be  that  number,  the  definitions  of  the  temporary 
names  ,iie  made,  and  all  the  parts  are  evaluated  When  mote  than  one  index  is  given,  this  is  done 
fot  each  (>omt  in  t he*  "Cattesian  product"  of  the  tanges,  that  is,  for  every  combination  of  index 
values 

In  a construct  part,  the  expression  is  evaluated  for  each  index  value,  and  for  each 
component  of  the  expression,  an  array  is  formed  having  the  same  limits  as  the  limits  given  for  the 
index  and  elements  equal  to  the  values  obtained  If  more  than  one  index  is  given,  a 
multidimensional  may  is  foimed,  that  is,  an  atray  of  arrays,  with  the  first  index  referring  to  the 
outermost  .may  If  some  component  of  the  expression  is  an  error  value  for  some  index  value,  that 
at  tay  element  is  simply  set  to  that  cmoi  value 
F.xa  tuple 

forall  i in  [ 1,4] 
x : real  : '.qu<iro_rooHreal(J))t 
construct  J,  X,  X+I.O 

ondall 

cteates  3 an ays.  all  with  tange  I to  -I  The  first  is  integet  and  contains  values  I,  2,  3,  and  4 The 
second  is  ted  and  contains  10.  I 41 1.  1732,  and  20.  The  last  is  real  and  contains  20,  2414.  2732,  and 
3.0  Flits  forall  block  is  an  expression  ot  auty  thice  whose  values  are  these  thtee  arrays. 
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forall  i in  [ A,  (3  ].  k in  [ C,  D ) 
construct  'expression* 

endall 

is  equivalent  to 

forall  J in  [ A,  E3  ] 
construct 

forall  K in  [ C,  D ] 
construct  Expression* 
endall 

cndall 

and  constructs  a two  dimensional  array,  that  is,  an  array  whose  limits  are  [ A,  B ] and  whose 
elements  ate  arrays  whose  limits  are  [ C,  D ] 

In  an  eval  pait.  the  operation  must  be  one  of  plus,  times,  min,  max,  or,  or  and.  The  arity 
of  the  e\|iifssion  must  he  one,  and  its  type  must  he  appropriate  for  the  operation,  real  or  integer  for 
plus,  times,  min.  or  max,  boolean  for  or  or  and  The  expression  is  evaluated  for  each  index 
value,  and  the  opciation  is  pet  formed  on  the  collection  of  values  that  are  produced.  If  multiple 
indices  ate  used,  the  opciation  is  performed  on  the  entire  collection  of  values  produced  for  all 
combinations  ot  index  values 
Example 

forall  j in  [ 1,  N ] 
eval  plus  J*J 
endall 

N 

tetu: ns  * p 
I I 

The  lesult  of  an  entire  forall  block  is  an  expression  constructed  by  concatenating  the  results 
of  all  of  the  puts 


I 


1 
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Example; 

forall  J in  [ 1,  N ] 

x : real  rquare_rool(real(J)) ; 

oval  plir.  J*J 

construct  j,  x,  Xa  l 0 

cndall 

is  an  rxpiession  of  .a t it y i and  types  integer,  arraylinteger],  arraytreal],  and  arraytreal} 


i. 

I. 


If  one  of  the  hounds  is  an  erroi  value,  or  the  lower  bound  is  greater  than  the  upper  bound 
plus  one,  the  h suit  of  the  rntne  forall  block  is  a tuple  of  undef  values  of  appropriate  types.  If  the 
lowei  hound  is  ei|iul  to  the  uppei  hound  plus  one,  the  result  of  each  construct  part  is  an  array 
with  no  elements,  and  the  lesult  of  each  eval  part  is  0, 1,  pos_over,  neg_over.  false,  or  true,  if 
the  ope  i a mi  is  plus,  timers,  min,  max,  or.  oi  and,  respectively 

I hr  scopes  ot  any  value  names  other  than  the  index  and  temporary  names,  introduced  in 
outet  constiucts.  pass  into  the  forall  block 


i 
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8.  FUNCTION  DEFINITIONS 

\ V YL  | ii o i.un  consists  of  a collection  of  modules,  each  defining  one  "external"  function  and 
any  nnmbei  of  "internal"  functions  Fach  function  is  defined  by  a function  definition,  which  is  a 
piece  of  text  consisting  of 

(1)  The  woid  function 

(2)  The  lum  tion  name  and  information  specifying  the  anty  and  types  of  its  arguments 
and  i etui  lied  values  This  information  is  called  the  "header”. 

(\)  The  type  definitions  used  in  the  function  definition.  If  this  is  an  external  function, 
the  circulations  of  other  external  functions  used  by  this  module  appear  here  also. 

(4)  The  clef  nut  ions  of  the  internal  functions  subsidiaty  to  this  one  Function  definitions 
may  thus  lie  nested  aibitrarily. 

(h)  The  expi pssioii  giving  the  values  to  be  returned  by  the  function  This  is  the  "body" 
of  the  function  definition 

(fi)  The  wotri  endfun 

The  definition  ol  an  external  function  is  an  entire  module  in  VAL.  Definitions  of  internal 
functions  appeii  within  function  definitions  in  item  4 of  the  above  list 

V yrtilY 

module  ::=•  external  lunction-dcf 

rxtri nal  luiu non  clef  ::  * 

function  liiuctiou  header 
["  type  external  def-part  ] 

| uiiei nal  function  def  J 

ex  pi  rvslOll 

endfun 

mtei  nal  (unction  def  ::  - 

function  function  header 
[ rypo  def  pait  ] 
j mtrtinl  function-drf  j 


rxpiession 

endfun 
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ry|«'-p\ii'i n.al-clef  part  ly|ie-e\i*»rnal-d*»f  | ; type-pxtprnal-def  } [ ; ] 

tv|*e  external  clpf  type-clef  | external  def 

type  dot  part  : : type  def  { , type-def  } [ ; ] 

tvpe  def  ::  - type  type-name  - type-spec 

external  clef  ::  external  function  hradei 

tiinctinn-hradei  function  name  ( decl  { , decl  ) returns  type-spec  { .type-spec  } ) 
function-name  name 

Example 

function  sum_of_<;quares  (X,  v : real  returns  real)  j 

X*X  + Y*Y 
endfun 

Only  the  external  (outrimost)  function  defined  in  a module  is  accessible  to  other  modules. 

Optional  type  definitions  may  appeal  alter  the  header  to  give  names  to  types.  These 
usei -del lin'd  names  may  be  used  anywhere  in  the  function  definition,  including  its  own  header. 
The  type  definitions  (and  external  declarations)  are  separated  from  each  other  by  semicolons;  a 
semicolon  .aftn  the  last  is  optional 
Example. 

function  complex,  multiply  (X.  Y : complex  returns  complex) 
type  complex  - record  f rc,  im  : real  j ; 

record  [ re  : X.re  * Y.re  - X.irn  * Yam  ; im  : X am  * Yre  + X.re  * Yam  ] 

endfun 

8.1  The  header  and  value  transmission 

The  let  of  lotmal  arguments  and  their  type  specifications  appears  in  the  headei  between  the 
left  patrnrhesis  and  the  word  returns  These  declarations  are  separated  from  each  other  by 
semicolons  Each  dedaiation  may  contain  several  value  names,  which  are  separated  from  each 
or lif i by  commas 
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1 lie  scope  ut  tlir  foini.il  arguments  is  the  I >ody  of  the  function  (the  expression),  less  any  inner 
constructs  which  le  intioduce  the  same  value  name  Their  types  are  as  given  in  the  header 
declarations,  and  then  values  are  the  values  of  the  arguments  given  at  function  invocation.  The 
type?  of  the  relumed  values  are  given  in  the  list  of  type  specifications,  separated  by  commas, 
appeal  my  afin  the  woid  returns  This  list  of  types  must  conform  to  the  body.  In  every 
invocation  of  a function,  the  number  and  types  of  the  arguments  and  returned  values  must  match 
those  of  the  definition 

The  meaning  of  a function  invocation  is  as  follows  If  the  function  F is  defined  by 

function  F ( a j -.  t j . . . aN  : Igj  returns  . sK  ) 

BODY EXP 

endfun 

then,  assuming  the  definition  is  concct  and  conforms  to  its  invocation,  the  invocation 
r (ARGEXP) 
is  equivalent  to 

let  tj  . . aN  : tN  :=  ARGEXP  in  BODYEXP  endlet 
8.2  The  EXTERNAL  declaration 

All  functions  used  m a module  that  are  not  defined  in  that  module  must  be  declared  in  an 
external  clecl nation  This  declaration  consists  of  the  word  external  followed  by  a copy  of  the 
function's  lieadei.  which  is  used  by  the  tianslator  for  type  checking. 

Example 

(unction  Ian  ( X : real  returns  real  ) 
external  mo  ( Q ; real  returns  real  ) ; 
external  cos  ( 0 real  returns  real  ) ; 

'in(X)  / c or  (X) 

endfun 

This  module  detmes  the  external  function  tan  Since  it  uses  the  functions  sin  and  cos,  which  are 
not  <1.  lined  hen*,  they  must  appear  in  external  declarations.  (They  must  be  defined  in  other 
modules  ei  accessed  in  a subroutine  library)  The  external  declarations  contain  the  headers  for 
nil  and  cos.  just  as  they  might  appear  in  the  definitions  of  those  two  functions.  The  formal 
a i i iimrnts  appearing  in  the  headers  ("G,”  in  the  preceding  example)  have  no  significance;  they  are 
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included  only  ten  syntactic  consistency  The  intention  is  that  the  headers  be  copied  verbatim  from 
the  modules  defining  un  and  cos  into  the  module  defining  tan 

A module's  external  dedaiations  must  appear  following  the  header  of  the  outermost  function 
definition  ot  tint  module,  even  it  the  functions  being  dcdaied  are  used  only  by  internal  functions 
The  external  dedaiations  may  precede,  follow,  or  be  mixed  with  the  type  definitions  of  the 
outetmost  mnrtion  definition 

8.3  Inheritance  of  data,  type  definitions,  and  external  declarations 

A tnnction  Ins  access  only  to  the  data  pirsented  to  it  in  its  invocation  No  data  values  are 
nnpo:t.  ! tiom  any  enclosing  luncnon  cirt  in  it  ion  Type  definitions  made  in  one  function  definition 
air  mh. a it  *,  |,v  ,t|  tnnctions  suhsidiaiy  to  it  A icdcfinition  in  an  internal  function  of  a type  name 
already  eh  tun  I in  .hi  oiitn  context  is  not  pcimitted 

External  i . . I.u.cions  made  in  the  outermost  function  definition  are  inherited  by  all  internal 
fund  ii  ms 

8 4 Scope  of  function  definitions 

The  snap,  hi  hi  ix'i  mal  function  definition  consists  of  all  modules  of  the  program  except  the 
mod i ilr  clrt min  tin  tun  ion  That  is,  any  external  function  may  be  invoked  from  anywhere 
except  in  i he  miiliil'  giviur,  that  functions  definition  The  scope  of  an  internal  function  consists 
sold*,  cit  the  immediately  enclosing  function  definition  Note  that  this  precludes  any  recursion  or 
mutual  m hi  sihii 
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1 hr  scope  mlrx  for  functions  and  type  definitions  are  illust i ated  by  the  following  example: 

function  F ( • header > ) 
external  I f ( * header  > ) ; 
type  I • type  pec  • i 
function  G ( • header'  ) 
type  U - <1  ype  ‘.pec > ; 
function  M ( -'header'-  ) 

function  N ( dreader'  ) 

bodyn 

endfun 

BomM 

endfun 

BODYq 

endfun 

function  H ( • hcadcr>  ) 
function  P ( - header'  ) 

(v  *(3Yp 

endfun 

BODYh 

endfun 

BODYF 

endfun 

the  Irociy  of  may  invoke  functions 

FF  i, external),  G,  H (internal) 

FF  (external),  M (internal) 

FF  (external),  N (internal) 

FF  (external) 

FT  (external),  P (internal) 

FF  (external) 


F 
G 
M 
N 
1 1 
P 
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k 


tin’  body  slid  header  of 

F 

G 

M 

N 

H 

I1 


may  use  defined  types 
T 

T.  U 
T,  U 
T.  U 
T 
T 


The  modules  comprising  a progiam  arc  tianslatcd  separately.  The  manner  in  which  their 
nanu  s ,ue  used  to  access  them  in  libraries  and  the  manner  m which  they  are  linked  into  a complete 
pro.  tarn  is  dependent  on  the  implementation  No  lecuisive  invocations  among  external  or  internal 
functions  are  permitted 
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Appendix  I - Formal  Syntax 


module  external  function-def 
external  1 unct loti  clrf  ::  = 

function  function-header 
typc-cxtetnal-dcf-part  ] 

I internal  function-def  ) 

ex  |>i  r xsiori 

endfun 

internal  function  def  ::  - 

function  function  headet 
type-del -part  ] 

{ inter  nal-function-def  | 

explosion 

endfun 

type  extern  a I clef  pat  t type  external  def  { , type-external-def  } [^  • ] 

type  external  def  ::  = type  del  | external-def 

type  def  put  ::  type  def  { . typedef  } [ . ] 

type  def  ::  type  type  name  - type  spec 

external  def  external  function  header 

function  I tea  dei  . function-name  ( decl  { . decl  } returns  type-spec  { , type-spec  } ) 

I unction  name  name 

rxpiesMon  level  ! exp  | expression  . Icvel-l-exp 

level  1 exp  lcvrl-2  exp  j level  I exp  | levcl-2  exp 

level  2 exp  leve|->cxp  | level-2-exp  &•  level-7-exp 

level  ? exp  level  I exp  | ~ level  I exp 

level  I (xit  ::  level  6 exp  | level  i exp  relational-op  level-5-exp 

level  r'  exp  level  G exp  | level  6-exp  ||  level  6-exp 

level  6 txp  ::  level  7 exp  | level  6 exp  adding-op  level-7-exp 

|rvel-7-e\p  level  S-rxp  | level  7 exp  multiplying-op  lcvel-8  exp 

level  S exp  primary  | unary- op  primary 


AM 
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lelatiorial  op  ' | <=  | > | >=  | = | ~= 
adding  op  : : = + | - 
i n 1 1 1 1 1 [ ) l> hi;  u|>  :;=*(/ 

unary  oj > :•  = + J - 

pi  unary  ::  const. mi  | value-name 
j (expiession) 

| ins  r>( atinn 

| ai lav-iel  j at lay-generator 
| ; r 01  d tr|  j lecoid-gencrator 
I onrof  ti'st  | oncof-generaior 
! oi ioi -it st  | prefix-upeiaiion 
j cor  id  it  ioi  i3 1 e\ p 
let  m exp 
| t a incase  exp 
| itei atinn  exp 
j lot  ill  exp 

v tine  name  : : - name 

mvcii  1 1 mi i : : - luiution-namc  (expiession) 

may  tei  ::  pumaiy  [expiession] 

anay  •eneiatoi  ::  [expression  expression  | .expression  : expression  } ] 
j pumaiy  [ expiession  expression  j , expression  expression  } ] 
record  let  ::  primary  . field  name 

teccird  • nei atoi  ::  record  [ field  name  expression  {,  field  name  expression  } ] 
j pumaiy  replace  [ field  expression  { , field  ; expression  } ] 
field  ::  Meld-name  j . field  name  | 
field  name  ::  name 
oiirni  test  is  lag-name  (expiession) 
nnrni  , mu  i.uoi  make  type  :pcc  [ tag-name  expression  ] 
tav.  name  : : name 

ei roi  test  ::  is  undef  (expression > j is  miss_elt  (expression) 
is  error  (expression)  | is  zero_divide  (expression) 
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I is  pos_ovr>r  (expression)  I is  npg_over  (expression) 

{ is  pos_under  (expression)  j is  neg_under  (expression) 

[ is  over  (expiessmn)  j is  under  (cxpicssion) 
j is  arith_rrror  (expression)  [ is  unknown  (expression) 
ptelix-opnatioii  : : =•  integer  (cxpicssion) 

| real  (cxpicssion) 
j character  (expression) 
j abs  (cxpicssion) 
j exp  (expi  ession) 

I mod  (expression) 

| max  (expiession) 

| min  (expi esMon) 

| array_(ill  (cxpicssion) 

| arrayjimh  (expression) 

| arrayjiml  (cxpicssion) 
array_size  (expression) 

; array _adjust  (expression) 

| array_addh  (expression) 
j array_addl  (expression) 
j array_remh  (expression) 

) array_reml  (expression) 

\ array_join  (expiession) 

, array_c.etl  (expression) 
constant  ::  nil  ( true  j false 

J line.  ci  numbci  | real  number  | character-constant  j character-string-constant 
j array_empty[type  spec) 

{ undof[lype  spec)  | miss_elt[type-spec] 

; pos_over(type  spec]  [ neg_over[type-spec] 
pos_under[iypr  spec]  | neg_under[type-spec] 

| unknown[type  spec]  | zero_divide[type  spec] 
type  xpec  basic  type-spec 
j compnimci-type-spcc 
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I m >r  ||>p)p 

l M vu  i\|.f  sj •.  ::  null  j booleon  j integer  j real  | character 

ininpmind  type  spec  ::  array  [type  spec] 

record  [ held  spec  { . held -spec  } ] 
oneof  [ i.h;  spec  { . tag  spec  } ] 
h-  ki  -pi  t ::  field  iniiir  I . field  name  | type-spec 
I i spi  , : : - i.i,;  n ini-'  | , tag  n une  | [ type  spec  j 
ly  pi  ii  une  : : name 

cun  htmii  il  e\p  - if  expiession  then  expression 

| clseif  expiession  then  expiession  ) 
else  expiession 

endif 

let  in  r\ p :: 

let  decldt i past 
in  expiession 

endlet 

linldrf  put  decide!  j , decide!  [ [ .] 
dec  Kiel  : : da  I 


! dec  I | . dec  I j expiession 
ilitl  ::  value  name  [ . value  name  } type  spec 
tlei  ::  value  name  j , value  name  [ expression 
t i:,tase  exp  :: 

tagcase  ^ value  name  j expression  I , j 
n lisi  expiession 
•;  1 1 . lut  expiession  } 
otherwise  expiession 
endtap, 

• i lis-  ::  tan  la,  name  { , tag-name  | 
itei ation  exp  : : 

for  dec Idef  pill 
do  itei  end 


cndior 


lift  end  ::  if  exptession  then  iiei  end 

j elseif  exptession  then  itei  end  | 
olr.e  itei  end  endif 

l tagease  [ value  name  ] exptession  f . ] 
tag-list  itci  end 
{ tag-list  iter-end  | 
i otherwise  iter -end  ; endtag 
j let  dec Iclcf  part  in  iter-end  endlet 
j t \pi  essioi 

j iter  clef  part  enditer 
(let  pait  ::  del  { def  } [ ; ] 
toi all  e\p  : : 

forall  value-name  in  [ expression  ] { . value-name  in  [ expression  ] 
j"  decide! -pa 1 1 ] 
foi all  body  put 
I tor  allbody  pau  | 

endall 

tuiall  body  part  construct  expression  j eval  forall-op  expression 
tot  all  op  ::  plus  | times  | min  j max  j or  j and 


Expression 


The  precedence  levels  for  these  infix  operators 
illustrated  bv  their  position  in  the  chart,  "t mar\ 
operator''  is  highest  precedence,  comma  lowest 

The  superscript  following  expression  indicates 
♦he  number  of  values  that  must  be  represented 
by  the  term  replacing  that  box  in  the  program 

an  exact  number  * that  anty  is  the  only  legal  one 
n"  » any  arity  is  valid 

K » anty  must  match  anty  of  other 

expressions  in  some  chait 


Primary 


Function 

name 


Record  ref 


name 


Grouping  op 


generator 


Oneof 

generator 


Value 

name 


Conditional  Exp 
(conditional  iter-end) 


Let-in  Exp 
(let  iter  end) 


Multiple  Definition 


One  of  Generator 


T ypff  spec 


name 


1 

E xpresston 


Merge  Operator 


1 
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Multiplying  Operator 


Error  Name 
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